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ABSTRACT 


This  paper  describes  the  design  and  implementation 
of  a microprocessor-based  high-speed  digital  data 
acquisition  and  reduction  system  suitable  for  use  in 
time  varying  signal  analysis  as  encountered  in 
unsteady  aerodynamic  investigation.  A microprocessor, 
flexible  disk  drive  and  an  analog- to-d igital 
conversion  module  were  the  main  components  which  were 
integrated  to  form  a 32  channel  12  bit  resolution  data 
acquisition  system  capable  of  1000  Hz  sampling  rate 
and  permanently  storing  over  250,000  bytes  of  data  on 
magnetic  diskette.  Subsequent  to  the  data  logging 
process,  the  same  system  was  capable  of  serving  as  a 
general  purpose  computer  utilizing  the  popular  BASIC 
scientific  programming  language. 

The  system  was  qualified  for  accuracy  and 
functional  performance  through  a series  of  controlled 
exercises,  and  was  then  applied  to  an  actual 
investigative  task  to  further  determine  its  utility 
and  value. 
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INTRODUCXION 


Data  acquisition  systems  have  historically  been  both 
costly  and  cumbersome  for  the  investigator  to  use. 
Acquisition  cf  unsteady  experimental  data,  as  in  the  case  of 
oscillatory  flow  investigation,  was  only  possible  with  the 
aid  of  expensive  digital  computer  systems  used  in 
conjunction  with  elaborate  analog  recording  devices. 

Within  the  past  four  years,  a new  form  of  computing 
power  has  become  available  to  the  engineer  accompanied  by 
such  a reduction  in  cost  that  its  use  has  spread  rapidly 
throughout  the  realm  of  engineering  design.  The 
revolutionary  device  alluded  to  is  the  microprocessor,  which 
in  its  basic  form  contains  all  the  arithmetic  and  logical 
functions  normally  found  in  the  central  processing  unit 
(CPU)  of  a large  scale  computer.  Concurrent  advances  in 
solid  state  lemorv  and  other  large  scale  integrated  (1ST) 
circuitry  has  enabled  entire  computing  systems  to  be  encased 
in  table-top  enclosures  at  a fraction  of  the  cost  of  the 
previously  available  minicomputers. 

This  document  describes  the  use  of  one  such 
microprocessor-based  microcomputer  system,  the  INT2L  MD5-SD0 
Microcomputer  Development  system,  as  a central  component  of 
a data  acquisition  system  . The  MDS  was  integrally 
connected  with  various  peripheral  devices  including  an 
analog  to  digital  converter,  input-output  devices,  and  a 
dual  flexible  disk  drive  unit  to  form  a data  acquisition 
system.  The  system  was  then  qualified  using  known  input 
signals  of  controlled  harmonic  content.  Subsequently  the 
system  was  applied  to  an  actual  experimental  situation. 
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where  unsteady  analog  signals  were  digitized,  recorded,  and 
later  analyzed  on  the  same  self-contained  computing  system. 

A glossary  of  teims  commonly  used  in  the  instrumentation 
engineering,  data  processing  and  computing  disciplines  is 
presented  in  Appendix  A. 


System  Desian 


II . 


An  engineering  design  is,  in  general,  the  result  of  a 
directed  effort  in  meeting  a recognized  human  need  or 
desire.  The  value  of  the  design  is  usually  determined  by 
how  well  the  design  product  satisfies  a set  of  performance 
criteria.  In  most  cases,  several  methods  of  achieving  the 
goal  will  be  available,  thus  requiring  the  designer  to 
choose  among  the  alternative  approaches.  This  choice  will 
be  governed  or  influenced  by  constraints  imposed  by  the 
environment,  funding  and  production  schedule. 

This  section  deals  with  the  definition  of  the  need, 
specification  of  the  desired  performance  attributes, 
determination  of  viable  alternatives,  and  the  decision 
process  by  which  the  final  product  was  developed.  Although 
most  of  the  desired  performance  requirements  were  achieved, 
the  project  served  as  an  educational  experience  revealing 
many  areas  which  could  be  improved.  Section  '/II  discusses 
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desire  to  study  the  dynamic  nature  of  the  flow  about  an 
airfoil  of  radical  design,  while  experiencing  the  effects  of 
an  oscillatory  flow-field,  required  a departure  from  the 
traditional  hand  logging  or  slow-speed  automatic  data 
acquisition  methods-  More  important,  however,  the 
experimental  process  not  only  required  investigation  of  the 
CCR  at  various  angles  of  attach  and  air  speeds,  as  in  the 
case  of  steady-state  wind  tunnel  experimentation,  but 
additionally  introduced  frequency,  cavity  pressure 
modulation  amplitude  and  phase  relative  to  flow  field 
oscillation  as  variables.  Thus,  the  CCS  experiment  required 
experimental  investigation  throughout  an  operating  envelope 
bounded  by  5 independent  variables  rather  than  the  usual  2 
associated  with  steady-state  flow  problems.  This  obviously 
increased  the  magnitude  of  the  data  acquisition  problem  far 
beyond  the  point  of  practicability  for  the  conventional  data 
logging  methods  at  hand.  A high-speed  automatic  data 
logging  technique  was  clearly  in  order.  Additionally,  in 
order  for  large  amounts  of  data  to  be  efficiently  analyzed, 
it  was  imperative  that  all  information  be  recorded  in  a form 
which  could  be  directly  utilized  by  a digital  computer. 

The  above  rationale  then  became  the  basis  for  the 
following  statement  of  the  "need": 

* A high-speed  digital  data  acquisition  system 
exhibiting  performance  attributes  necessary  to  allow 
numerical  analysis  of  the  flow  pattern  about  the  surface  of 
a CCR  airfoil  section,  operating  in  the  Naval  Postgraduate 
School  2-foot  by  2-foot  oscillatory  flow  wind  tunnel 

* Function  as  a controlling  device  capable  of 
automatically  sequencing  the  Scanivalve  mechanical 
multiplexers  without  operator  intervention 

* Perform  the  algebraic  calculations  necessary  in 
reducing  the  data  to  analytic  form 
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B. 


Determination  of  Performance  Specifications 


Anticipating  a significant  investment  in  equipment,  and 
realizing  that  the  CCP.  research  project  would  some  day  be 
complete,  it  was  determined  that  the  system  design  should 
take  future  applications  into  cons ideration.  For  this 
reason,  flexibility  was  incorporated  as  a major  design  goal, 
which  necessarily  resulted  in  a modification  of  the 
specif icarion.s  from  those  actually  required  for  the  CCR 
task. 

1 • 12  Digital  Conversion  ( A/D) 


In  a typical  data-sampling  system,  signal  voltages 
representing  varying  physical  parameters;  e.g.,  pressure, 
temperature,  position,  velocity  and  acceleration,  are 
sampled  and  converted  via  A/D  converters  into  digital  form. 
A/D  conversion  has  become  an  engineering  discipline  in 
itself  and  an  entire  vocabulary  associated  with  the  field 
has  resulted.  To  assist  the  reader  in  understanding  the 
following  treatment  of  A/D  performance  requirements,  a brief 
glossary  of  A/D  terminology  is  included  within  Appendix  A. 
In  the  interest  of  brevity,  the  discussion  herein  is  limited 
*0  the  most  important  facets  of  A/D  conversion.  "or  a more 
complete  treatment  of  the  subject,  the  reader  is  directed  to 
ref.  12,  an  outstanding  collection  of  A/D  related  articles. 

As  a prelude  to  the  below  listed  performance 
parameters.  Fig  1 depicts  all  of  the  elements  found  in  a 
typical  A/D  conversion  system  and  illustrates  the  type  of 
errors  associated  with  each  stage  of  the  process. 
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NOISE 


FIGURE  1 - TYPICAL  AN ALOG-TO-D 1 G I T AL  DATA  ACQUISITION  MODULE 


2 . Number  of  Anal oo  Channels 


The  CCR  experimental  set  up  had  one  analog  channel 
dedicated  to  each  of  the  below  listed  signal  sources: 

* Scar.i valve  ONE 

* Scar.ivalve  TWO 

* Cavity  Pressure  Transducer 

* Hot  Wire  Annemomoter 

A schematic  of  the  signal  flow  is  depicted  in  Fig  2. 
The  four  channels  were  to  be  sampled  in  fast  succession  at  a 
specified  periodic  rate.  The  A/D  module  had  provisions  for 
32  sinole-ended  channels  or  16  differential  channels.  The 
single-ended  mode  was  employed  in  this  application. 
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3. 


Sample  5.2§2lution  ( guan  tization  error) 

When  the  analog  signal  is  digitized,  the  resulting 
digital  quantity  can  take  on  only  certain  discrete  values. 
The  number  of  bits  in  the  digitized  datum  word  determines 
the  number  of  possible  states  that  the  word  may  have.  An  8 
bit  A/D,  for  example,  can  exhibit  2 to  the  3th  or  256 
states.  If  the  range  of  operation  of  the  A/C  is  minus  5 *o 
plus  5 volts,  (10  volts  full  scale),  then  each  bit 
represents  an  increment  of  .0391  volts.  This  amounts  to  a 
resolution  or  quantization  error  of  0.391  percent.  The  more 
bits  in  the  digitized  word,  the  better  the  resolution; 
however,  the  price  paid  for  increased  accuracy  is  a decrease 
in  conversion  speed.  Of  course,  speed  and  accuracy  may  be 
obtained  concurrently  with  a corresponding  increase  in  cost. 

The  A/D  module  exhibited  12  bit  accuracy,  yielding  a 
quantization  error  of  0.024  percent  over  full  range 
operation.  This  corresponded  to  a sensitivity  of 
approximately  0.00244  volts  during  10  volt  full  scale 
operation.  The  12  bit  converter  offers  moderate  accuracy 
and  relatively  high  speed,  e.g.  75,000  conversions  per 
second,  for  a reasonaole  cost. 

4 • Conversion  Pa*? 

The  amount  of  time  required  for  the  A/D  module  to 
sample  and  digitize  the  analog  input  is  defined  as  the 
conversion  time.  The  A/D  module  was  capable  of  75,000 
12-bit  conversions  per  second,  or  one  conversion  every  13 
microsecond s . This  conversion  rate  was  only  obtainable  if 
the  Direct  Memory  Access  (D*A)  mode  were  utilized.  Sine® 
the  SINETRAC-800  Todule  was  operated  in  the  program  control 


17 


mode,  the  conversion  rate  was  limited  by  the  microprocessor 
instruction  sequence  execution  time  to  74.5  microseconds  per 
conversion.  The  resulting  throughput  was  13,400  conversions 
per  second.  The  induced  lag  between  channels  caused 
significant  problems  in  signal  reconstruction  and  is 
discussed  in  detail  in  section  TV. 


C.  The  Processor 


The  digital 
design,  and  added 
conversion,  data 
to  the  problem  at 
requirements  of 
section . 


processor  was  the  heart  of  the  system 
the  flexibility  needed  to  make  the  A/D 
acquisition  and  storage  process  applicable 
hand.  The  desired  functional  performance 
the  processing  unit  are  discussed  in  •‘■his 


1 • A/D  control 

During  the  acquisition  phase  of  operation,  the 
processor’s  main  task  was  that  of  controlling  the  A/D 
module.  3y  controlling  the  acquisition  process  under 
programmed  logic,  adjustments  to  the  sampling  rate,  channel 
samplinc  sequence,  and  real-time  filtering  of  the  data  could 
be  easily  effected. 

The  reconstruction  of  time-varying  analog  signals 
from  a set  of  discrete  datum  points  represents  a problem  of 
significant  magnitude.  Probably  the  single  most  important 
consideration  during  the  acquisition  phase  is  the  period  at 
which  samples  are  to  be  taken.  When  investigating  periodic 
signals,  frequency  content  is  generally  a matter  of  prime 
interest.  Nyguist's  sampling  theorem  states  that 
equi-spaced  data,  with  two  or  more  points  per  cycle  of  tie 
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highest  frequency,  will  allow  reconstruction  of  band-limited 
functions.  If  this  principle  were  not  observed,  a 
phenomenon  termed  "aliasing"  could  occur.  The  concept  of 
aliasing  is  shown  in  Fig  3 which  depicts  a signal  sampled  at 
two  different  rates.  The  curves  drawn  through  the  two  sets 
of  points  represent  possible  reconstructions  of  the  original 
signal.  The  frequency  change  implied  by  the  dotted  curve  is 
an  "alias"  of  the  frequency  described  by  the  solid  curve. 
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Other  considerations  related  to  sampling  rate  are 
the  number  of  data  points  required  for  adequate  analysis, 
the  amount  of  memory,  permanent  ss  storage,  and 
computation  time  required  in  processing  the  data. 

In  the  CCR  application,  it  was  predicted  that 
fundamental  driving  frequencies  in  the  range  of  1 to  20  Hz 
should  be  investigated;  and  that  frequency  content  up  to  the 
fifth  harmonic  would  be  of  possible  interest.  This  meant 
that  the  system  must  be  capable  of  sampling  the  analog 
channels  at  a minimum  rate  of  200  Hz.  The  resulting  design 
achieved  a 500  Hz  sampling  rate  over  8 channels. 


III.  HARD WARE 


A.  MDS-800  MICROCOMPUTER  DEVELOPMENT  SYSTEM 


In  its  basic  configuration,  the  INTEL  MDS-800 
Microcomputer  Development  System  consists  of  a CPU,  16X  RAM, 
peripheral  interface  controller,  front  panel  controller, 
power  supply  and  enclosure.  With  the  exception  of  the 
enclosure  and  the  power  supply,  each  of  the  aforementioned 
items  is  in  the  form  of  one  or  more  printed  circuit  modules 
which  may  be  inserted  into  the  mainframe  of  the  MDS.  The 
MDS  may  be  directly  connected  to  the  following  peripheral 
devices  with  minimal  interfacing:  CRT  and  keyboard  console, 
high  speed  line  printer,  standard  Teletype  with  paper  tape 
reader  and  punch,  high  speed  paper  tape  reader,  and  a high 
speed  paper  tape  punch.  This  section  describes  the 
essential  hardware  elements  of  the  system,  an  overall  view 
of  which  is  shown  in  Fig  a. 
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FIGURE  4 - MDS-eOO  MICROCOMPUTER  DEVELOPMENT  SYSTEM 
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1 • Fandom  access  memory  (RAH) 

The  basic  block  of  RAH  is  a 16K  byte  module  of  high 
access  rate  volatile  dynamic  memory,  where  IK  denotes  2 to 
the  10th  cr  1024  bytes.  The  HDS  is  capable  of  addressing  4 
such  modul-es  or  64K  bytes  of  memory.  Of  the  64K  of  RAM  only 
62K  are  actually  usable  due  to  the  coexistence  of  a 2K  block 
of  read  only  memory  (ROM)  containing  the  MDS  Monitor 
program. 


Due  to  the  requirement  for  rapid  recording  of  large 
blocks  of  data,  the  maximum  number  of  RAM  modules  was 
installed.  A RAM  module  is  illustrated  in  Fig  5 and  serves 


as  an  example  of 
modules  referred 


the  typical  insertable  printed  circuit 
:o  throughout  this  paper. 
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2.  DISK  OPERATING  SYSTEN 

The  INTEL  Disk  Operating  System  (DOS)  consisted  of 
three  major  components,  a dual  floppy  disk  drive  unit,  a 
disk  controller,  and  the  DOS  support  software.  The  addition 
of  the  DOS  provided  dramatic  increases  in  the  flexibility, 
speed,  and  mass  memory  storage  available. 

Each  7.5-inch  diameter  floppy  disk  (diskette)  had  a 
capacity  of  256K  bytes  of  semi-random  access  storage.  With 
the  dual  drive,  over  0.5  million  bytes  of  data,  program,  or 
other  information  could  be  accessed  with  relative  ease  and 
moderate  speed. 

The  software  support  package  offered  by  INTEL, 
called  ISIS,  was  evaluated  along  with  the  Digital  Research 
CP/M  disk  operating  system.  The  Digital  Research  software 
package  was  chosen  over  the  INTEL  package  due  to  the  higher 
speed  it  demonstrated  and  its  compatibility  with  the  3ASIC-E 
package  used  in  the  data  reduction  phase. 

CF/M  consists  of  several  utility  routines  in 
addition  to  the  Basic  Disk  Operating  System  (3D0S) . These 
routines  allow  the  user  to  form  and  edit  disk  files, 
programs  or  data  files,  to  assemble  and  load  assembly 
language  programs,  and  a powerful  debug  routine.  A more 
complete  description  of  the  CP/M  BDOS  is  contained  in  ref. 
9. 


3 . E IN£(JT  OUTPUT  MODULE  (I/O) 

The  basic  MDS-9D0  was  further  expanded  with  the 
installation  of  a general  purpose  I/O  module.  This  module 
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provided  four  input  ports  and  four  output  ports  of  eight 
bits  each.  The  need  for  the  I/O  module  was  anticipated  for 
control  applications,  digital  input  or  outputs,  controlling 
an  X-Y  plotter,  or  other  general  purpose  applications.  This 
module  was  actually  intended  for  controlling  the  Scanivalve 
positioning  under  automatic  channel  sequencing.  However,  it 
was  later  decided  that  system  flexibility  would  have  been 
sacrificed  had  this  feature  been  implemented. 

4 • 3IN5TRAC-300  AN ALOG  TO  DIGITAL  CONVERTS?  NODULE 

The  Datel  Sinetrac-300  A/D  converter  module  is  a 32 
channel,  12  bit  resolution  analog  to  digital  module 
specifically  designed  for  use  with  the  INTEL  MDS-800.  Being 
buss  compatible  with  the  MDS  system,  the  module  was 
installed  within  the  MDS  chassis  and  the  wiring  harness  was 
brought  to  the  backplane  of  the  MDS  enclosure. 

The  main  elements  of  the  A/D  module  were: 

■ 32  channel  analog  multiplexor 

• sample  and  hold 

■ A/D  converter  sub-module 

■ addressing  and  hand-shaking  logic  circuitry 

« Direct  Memory  Access  control  circuitry 

The  A/D  module  had  three  fundamental  modes  of 
operation : 

■ program  control 

■ program  control  with  automatic  sequencing 

■ Direct  Memory  Access  mode 

Reference  1 contains  a complete  description  of  the 
A/D  module  including  operating  instructions  and  programming 
techniques. 
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Although  the  D1 A mode  was  not  utilized  because  of 
its  requirement  of  an  INTEL  DMA  module  for  support,  future 
development  of  the  system  will  make  the  addition  of  the  DMA 
module  indispensable.  The  use  of  DMA  would  allow  the  A/D 
module  to  operate  at  its  full  capability  of  75  KHz  sampling 
rate.  This  increase  in  acquisition  rate  would  significantly 
extend  the  range  of  the  system  in  terms  of  signal  frequency 
component  reconstruction. 

The  Sinetrac-800  also  provided  user  options  in. 
certain  operational  parameter  selection.  Selectable  by 
jumper  wire  were  input  signal  voltage  range  (5,  10,  or  20 
volts),  single  ended  or  differential  operation,  and 
interrupt  or  non -interrupt  operation.  The  options  in  use 
were:  plus  and  minus  5 volt  single  ended,  non-interrupt 
operation.  Details  concerning  the  use  of  jumper  options  are 
specified  in  ref.  1.  The  SINETRAC-800  is  depicted  in  Rig  6. 
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IV.  SOFTWARE 


The  software  development  was  accomplished  in  foar 
distinct  phases  and  involved  the  use  of  three  different 
programming  languages.  This  section  briefly  describes  each 
language  and  the  individual  program  modules  created. 

A.  LANGUAGES 

Every  computer  language  has  a level  of  application  for 
which  it  was  designed.  The  three  languages  discussed  in 
this  section  were  used  to  accomplish  varying  degrees  of 
program  control.  A high  level  programming  language  allows 
the  programmer  to  use  nearly  literal  or  sentence  form 
expressions  or  equations.  FORTRAN  is  an  example  of  a high 
level  language.  A low  level  language  on  the  other  hand,  is 
cicsely  related  to  the  machine  code  actually  used  by  the 
computer.  Machine  code  is,  of  course,  the  lowest  level 
programming  language  but  is  rarely  used.  Low  level 
languages  provide  the  programmer  with  complete  control  over 
memory  usage  and  CFU  instruction  sequences. 

1 . 803 C Assembly  Language 

This  low-level  language  was  specifically  developed 
for  use  with  the  8090  microprocessor.  It  is,  however, 
similar  in  form  to  assembly  languages  in  use  with  other 
computers.  The  form  of  the  language  is  described  fully  in 
ref.  10,  therefore  only  the  merits  of  the  language  are 
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discussed  herein. 


The  use  of  assembly  language  offers  the  programmer 
direct  control  over  the  CPU  instruction  sequence.  Very 
efficient  utilization  of  available  program  memory  and 
optimization  of  program  execution  time  may  be  accomplished 
when  employed.  These  features  form  the  basis  for  the  use  of 
assembly  language  in  the  construction  of  the  data 
acquisition  and  ASCII  conversion  programs,  where  execution 
time  and  memory  allocation  are  importrant  considerations. 

One  distinct  disadvantage  to  the  use  of  assembly 
language  is  that  the  amount  of  work  required  in  producing  a 
relatively  short  program  may  be  significant.  Several  pages 
of  documentation  are  necessary  to  make  the  program  readable, 
even  to  the  author  of  the  program.  Obviously,  tracing 
another's  assembly  language  program  is  very  difficult  even 
with  excellent  documentation. 


2 • PL/M 

PL/?!  is  a medium- level  language  again  designed  for 
microprocessor  use.  It  offers  moderate  control  over  the  CPU 
instruction  sequence  while  providing  the  user  with  many  of 
the  features  available  only  in  high-level  languages.  Tn 
other  words,  PL/M  is  a language  which  permits  the  user  to 
determine,  within  limits,  the  degree  of  control  he  desires. 
The  amount  of  machine  code  produced  by  PL/M  comp i lat ion  is 
about  half  again  that  resulting  from  a functionally 
equivalent  assembly  language  program.  PL/M  is  ideal  for  use 
when  floating  point  mathematical  operations  are  not 
required,  or  when  time  and  memory  efficiency  are  not 

important  factors. 

FL/M  was  used  in  the  construction  of  the 
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communicatiions  interface  program  called  I FACE  which  linked 
the  MDS-800  to  the  I3M-360  via  telephone  line.  PL/M  may  be 
assembled  on  either  the  I3M-360  or  locally  on  an  MDS-800 
when  equipped  with  the  full  complement  of  64K  of  RAM. 

3.  EASIC 


BASIC  is  a high  level  language  which  is  gaining 
wide  acceptance  throughout  the  scientific  community. 
Similar  to  FORTRAN,  BASIC  provides  the  user  with  facility  in 
programming  mathematically  complex  routines  in  fairly 
familiar  algebraic  format.  The  3ASIC-E  compiler  and  run 
time  monitor  were  developed  for  8080  implementation  to  be 
used  in  conjunction  with  CP/M,  and  are  fully  described  in 
ref.  5. 

EASIC-E  was  used  in  the  data  analysis  routine  which 
may  be  easily  modified  to  suit  the  user's  needs.  A summary 
of  the  commands  available  and  syntax  of  2ASIC-E  can  be  found 
in  ref.  8. 

B.  PROGRAMS  AND  DISKETTE  FILES 


The  data  acquisition  and  reduction  process  was  a 
multiphase  sequence,  each  phase  consisting  of  one  or  more 
program  executions.  Each  program  resided  on  the  system 
diskette  under  its  individual  file  name.  The  system 
diskette  also  contained  the  CP/M  3D0S  and  each  of  its 
associated  utility  rout ires,  the  EASIC-E  compiler  and  run 
time  monitor.  The  system  diskette  was  inserted  into  disk 
drive  A,  while  the  data  diskette  was  inserted  into  disk 
driv-=>  P.  Each  program  module  and  its  associated  support 
files  is  described  within  this  sub-section,  and  Appendix  E 
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contains  a description  of  the  operating  procedures. 


1 . CONTROL 


A control  file  called  CONTROL  was  formed  prior  to 
each  acquisition  run.  This  file  was  edited  and  maintained 
on  the  system  diskette  and  contained  both  text  and  control 
parameters  that  were  used  by  the  acquisition  program, 
ACQUIRE.  The  use  of  a control  file  eliminated  the  need  for 
the  operator  to  re-enter  control  parameters  for  successive 
runs.  A sample  CONTROL  file  is  contained  in  Appendix  ?. 
The  order  of  the  passed  parameters  was  significant;  however, 
the  verbiage  or  content  of  the  string  variables  could  be 
entered  free-form.  The  ACQUIRE  program  would  only  recognize 
and  use  the  integer  value  of  parameters  which  were  preceded 
by  a colon  and  followed  by  a carriage  return  linefeed 
combination.  The  information  following  the  first  two  colons 
was  ignored,  allowing  the  date  and  run  number  no  be  entered 
but  not  passed  to  the  ACQUIRE  program.  The  meanings  of  the 
parameters  are  self-evident  from  th°  sample  shown  in 
Appendix  F,  and  are  therefore  not  explained  here. 

2 • ACQUIRE 

ACQUIRE  was  the  main  - program  which  performed  the 
data  acquisiton  function.  It  would  first  read  the  CCNTPOL 
file  from  3isk  drive  A and  display  it  on  the  CRT  for  the 
operator’s  review.  Should  corrections  or  alterations  be 
required,  they  could  be  effected  at  this  time  by  editing  the 
CONTROL  file.  With  the  CONTROL  file  in  order,  ACQUIRE 
proceeded  to  extract  the  necessary  control  parameters  and 
duplicated  the  CONTROL  file  or.  the  diskette  in  drive  3. 
Using  the  extracted  control  parameters,  this  program  then 
managed  the  operation  of  the  SINETRAC-800  module,  CRT,  and 


disk  drive  unit  so  as  to  scan  the  specified  analog  channels 
at  the  specified  rate  and  number  of  repetitions,  and  record 
the  data  on  the  data  diskette  in  disk  drive  B.  The  ACQUIRE 
program  accomplished  this  task  by  issuing  commands  to  the 
SIN  ETRAC-800 , followed  by  data  to  be  written  or  read.  The 
SINETRAC-BOO  was  issued  the  initial  and  final  channel 
numbers,  a start  scan  command,  and  a start  conversion 
command.  When  an  analog  to  digital  conversion  was  complete, 
the  SIN  ETRAC-800  changed  its  status  word  to  indicate  an  end 
of  conversion  (EOC) . The  processor  would  then  read  in  the 
two  bytes  of  data  resulting  from  the  conversion.  Upon 
receipt  of  a subsequent  start  of  conversion  command,  the  A/D 
module  would  automatically  step  to  the  next  analog  channel 
to  be  sampled  and  perform  a conversion.  When  the  entire 
range  of  channels  was  converted,  the  A/D  would  change  the 
status  word  to  indicate  an  end  of  scan,  simultaneously 
resetting  the  channel  selection  register  to  the  initial 
channel. 

The  generation  of  the  scar,  period  timing  pulse  is  a 
topic  which  deserves  explanation  as  it  was  one  of  the  most 
difficult  portions  of  the  ACQUIRE  routine  from  a programming 
standpoint.  The  MDS-800  front  panel  controller  module 
includes  an  interrupt  timer  which  may  be  turned  on  or  off 
programmatically.  The  timer  is  actually  a series  of  solid 
state  counters  which,  after  receiving  a certain  number  of 
pulses  frcm  the  9.8  MHz  system  clock,  issues  a pulse  to  the 
CPU.  This  interrupts  the  operation  of  the  8080  CPU,  causing 
the  program  to  execute  a subroutine.  This  subroutine  then 
counts  the  number  of  interrupts  received  in  this  manner, 
when  the  number  of  interrupts  counted  reaches  a value  which 
matches  that  prescribed  by  the  scan  period  control  parameter 
entered  by  the  CONTROL  file,  a scan  instruction  is  issued  to 
the  SIN ETR AC- 800  and  a scan  sequence  is  initiated.  Each 
interrupt  occurs  at  0.977  ms.  The  fact  that  the  timer 
interrupts  at  nominal  1 ms  intervals  became  the  limiting 
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factor  cn  scan  rate.  In  order  to  increase  the  scar,  rate, 
some  other  means  of  initiating  the  scan  must  be  used.  The 
rationale  for  using  the  interrupt  timer  in  the  first  place 
was  that  it  provided,  at  no  additional  expense,  a highly 
accurate  time  base,  an  important  requirement  for  dynamic 
signal  analysis. 

Data  from  each  conversion  were  stored  in  sequential 
RAM  locations.  When  the  specified  number  of  scans  had  been 
performed,  the  data  stored  in  RAM  were  formatted  and 
transferred  to  the  data  diskette  in  disk  drive  B.  Each 
block  of  scans  was  written  into  a file  called  DATA. nnn, 
where  nnn  was  the  decimal  sequence  number  for  that  file. 

The  process  continued  until  all  Scanivalve  channels 
were  sampled  and  logged,  the  diskette  space  was  exhausted, 
or  the  process  was  terminated  by  the  user.  If  the  process 
were  completed  without  mishap,  a file  called  PROTECT  could 
be  written  on  the  data  diskette  at  the  users  option.  The 
PROTECT  file  prevented  further  data  from  being  recorded  on 
an  un processed  diskette. 

3.  PROTECT 


The  PROTECT  file,  if  it  existed  on  a data  diskette, 
prevented  additional  data  from  being  written  to  the 
diskette.  Normally  the  PROTECT  file  was  only  removed  from  a 
diskette  upon  successful  completion  of  the  reduction 
process.  This  procedure  prevented  unprocessed  data  from 
being  inadvertently  destroyed  or  overwritten.  The  PROTECT 
file  could  also  be  removed  by  typing  "ERA  BiPROTECT"  at  the 
console. 
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4 . DATA  . nrsn 

Each  time  the  SCAN  subroutine  within  the  AC2UI3E 
program  was  ex°cuted,  a DATA.nnn  file  was  created  on  the 
data  diskette.  This  file  contained  the  data  stream  which 
resulted  from  one  run.  At  the  completion  of  all  the  runs 
the  data  diskette  would  contain  several  DATA  files.  For 
example,  a completed  lata  disk  directory  might  be  as 
fellows: 

CONTPOL 
DATA. 000 
DATA  .001 
DATA. 002 
PROTECT 

The  first  16  bytes  of  data  on  each  DATA  file  form  a 
header  for  that  file,  and  contained  the  control  information 
relevant  to  that  file.  The  meaning  of  each  byte  within  the 
header  is  listed  below: 

Byte  0 Initial  Analog  Channel 
3yte  1 Final  Analog  Channel 
3yte  2 Scanivalve  One  setting 
3yte  3 Scanivalve  Two  Setting 
3yte  4 No.  of  scans  (LS3) 

Eyte  5 No.  of  scins  (MS5) 

Syte  6 Scan  period  (LSB) 

Byte  7 Scan  period  (J»SB) 

Byte  8 Frequency  (LSB) 

Byte  9 Frequency  (dS3) 

Syte  A through  F not  used 

Subsequent  data  words  formed  the  body  of  the  DATA 
file.  A DATA  file  was  composed  of  binary  information,  and 
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therefore  required  translation  into  ASCII  characters  prior 
to  being  read  by  the  BASIC  reduction  routine. 


5 . CCUV5F? 

The  CONVERT  program  was  an  assembly  language  routine 
which  read  the  desired  DATA. nnn  file  into  RAM,  converted  the 
binary  values  to  ASCII  decimal  integers  and  created  a file 
called  DATA . ASC  on  the  data  diskette.  This  was  necessary 
prior  to  each  execution  of  the  REDUCE  program,  as  the 
BASIC-E  file  handling  would  only  accommodate  ASCII  coded 
disk  files.  This  process  could  have  been  made  a part  of  the 
ACQUIRE  program  function;  however,  the  additional  number  of 
bytes  required  for  each  data  point  would  have  severely 
limited  the  amount  of  data  on  each  diskette. 

The  program  was  executed  by  typing  "CCNVERT 
DATA. nnn"  at  the  console.  The  resulting  ASCII  type  file 
could  be  viewed  in  raw  unformatted  form  by  typing  "TYPE 
B;EATA. ASC" . 

6 . REDUCE 

The  REDUCE  program  was  written  in  BASIC  and  was 
executed  by  typing  "RUN  REDUCE"  on  the  console.  Its 
function  was  to  read  the  DATA. ASC  file  from  the  data 
diskette  and  perform  the  required  numerical  analysis 
necessary  to  extract  the  Fourier  coefficients  of  the  signal 
wave  form  represented  by  the  data.  The  program  used  is 
contained  in  Appendix  C and  a discussion  of  the  reduction 
algorithm  is  prasented  in  ref.  11. 

It  is  important  to  note  that  the  BASIC  routine  used 
in  this  application  may  be  easily  modified  to  suit  the 
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For  that  matter 


user's  needs.  For  that  matter,  an  entirely  different 
analysis  algorithm  could  be  substituted  with  equal  facility. 


In  effect,  the  function  of  the  program  was  not  of 
significance,  however,  it  served  as  a vehicle  for 
development  and  testing  of  the  system.  The  demonstrated 
flexibility  and  ease  in  programming  afforded  by 
incorporation  of  the  BASIC  language  are  the  meaningful 
f ea  tures . 

7.  I FAC  E 


This  PL/M  program  was  originally  written  by  an 
unknown  author  but  was  adapted  for  use  with  the  MDS-800 
through  modification  of  the  interfacing  routines. 


Its  purpose  was  to  allow  the  user  to  operate  the  CRT 
console  as  a remote  time-share  terminal  in  conjunction  with 
the  W.R.  Church  I3M-350  operating  under  the  Cambridge 
Monitoring  System  (CMS)  . The  program  listing  is  included 
for  documentary  purposes  in  Appendix  C.  It  also  provided 
for  automatic  bi-directional  transfer  of  disk  files  between 
the  IBM  and  ‘.IDS  systems,  a useful  feature. 
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V. 


SYSTEM  QUALIFICATION 


Any  design,  whether  hardware,  software  or  a combination 
of  both,  must  be  thoroughly  evaluated  for  performance  under 
controlled  conditions  prior  to  its  introduction  in  an  actual 
field  environment.  The  test  which  the  design  should  undergo 
must  exercise  the  device  througnout  its  expected  range  of 
operation  so  that  actual  performance  limitations  may  be 
determined.  Qualification  testing  also  provides  the 
designer  with  quantitative  and  qualitative  measures  of  the 
system's  conformance  to  the  design  criteria.  This  section 
discusses  the  qualification  tests  conducted  on  the  data 
acquisition  system,  and  an  interpretation  of  the  results 
obtained . 


The  main  objective  of  the  qua li f ication  testing 
procedure  conducted  was  to  provide  a level  of  confidence  in 
the  system's  ability  to  faithfully  track  the  input  signals, 
thereby  permitting  the  reduction  routine  to  accurately 
perform  numerical  operations  which  would  reconstruct  the 
desired  parameters  of  magnitude  and  phase,  while  filterincr 
undesirable  frequency  components.  The  three  basic 
qualification  tests  conducted  in  the  determination  of  the 
system's  performance  characteristics  are  discussed  below. 


A.  DC  C A LIE  RATION 


Accompanying  the  SINET3AC-800  D/A  module  was  a voltage 
calibration  and  scar,  test  software  package.  Tnis  proarum 
allowed  verification  of  the  accuracy  of  the  A/D  conversion 
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system  when  known  (accurately  measured)  DC  voltage  levels 
were  applied  to  the  individual  input  channels  of  the  A/D 
module.  The  results  of  this  test,  with  the  voltage  range  of 
the  devj.ce  set  at  plus  and  minus  five  volts  full  scale,  are 
shown  in  Fig  7.  This  voltage  range  was  chosen  over  the  20 
or  5 volt  full  scale  range  because  the  outputs  of  the  signal 
conditioning  amplifiers  had  historically  exhibited  bias  and 
excursion  characteristics  which  remained  well  within  this 
range.  Had  a 20-volt  full-scale  range  been  utilized, 
sensitivity  would  have  been  sacrificed,  whereas  a 5-volt 
range  would  have  resulted  in  an  overvoltage  condition  on  the 
A/D  converter  circuit. 


INPUT  VOLTAGE  C VOLTS > 

FIGURE  7 - DC  VOLTAGE  CALIBRATION  RESULTS 
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SINUSOIDAL  SIGNAL  RECONSTRUCTION 


This  test  was  designed  to  evaluate  the  system's  ability 
to  accurately  acquire,  store,  and  reconstruct  a sinusoidal 
input  signal  of  known  amplitude  and  phase  relationship  to  a 
reference  sinusoidal  signal. 

The  test  was  conducted  using  the  simple  operational 
amplifier  circuit  illustrated  in  Fig  8,  representina  a 
low-pass  filter. 

The  gain  and  phase  of  the  output  signal  relative  ^o  the 
input  signal  were  measured  by  using  the  Eallantine  true  RdS 
meter  and  an  AD-YU  phase  meter,  respectively.  These  data 
were  hand  logged  and  plotted  in  Figs  9 and  10  for  comparison 
with  the  gain  and  phase  parameters  extracted  by  the  analysis 
algorithm  discussed  in  section  IV.  A very  high  correlation 
between  the  extracted  parameters  and  the  analog  measurements 
is  clearly  observable. 


FIGURE  10  - 5 1 NU5D I DHL  PHR5E  QUALIFICATION  TEST  RESULTS 


C.  SQUARE  WAVS  RESPONSE 


This  test  was  designed  to  evaluate  the  accuracy  of  the 
data  acquisition  system  in  reconstructing  the  higher 
harmonics  contained  within  a periodic  signal-  Since  a 
square  wave  is  known  to  be  composed  of  only  odd  harmonic 
components,  with  known  relative  amplitudes,  the  Fourier 
coefficients  derived  from  this  test  were  easily  compared  to 
theoretical  results. 

By  injecting  the  square  wave  input  into  more  than  one 
A/E  input  channel  simultaneously,  a measurement  of  the 
interchannel  sampling  delay  was  possible  through  observation 
of  the  resulting  phase  shift  between  adjacent  channels. 
Compensation  for  the  artificially  induced  phase  lag  was 
accomplished  within  the  BASIC  data  reduction  algorithm. 
Referring  to  Pig  11,  which  illustrates  the  phase  shift 
problem  graphically,  delta  t was  the  amount  cf  time  required 
to  switch  frcm  one  A/0  channel  to  the  next  and  complete  a 
conversion.  The  software  steps  for  the  switching  process 
amounted  to  7U.5  micro-seconds  of  apparent  phase  lag.  3v 
adding  this  value  to  the  time  term  within  the  reduction 
algorithm,  the  phase  shift  problem  was  nearly  eliminated. 


The 

results 

of  the 

harmonic  reconstruction 

test  are 

shewn  in 

Fig  12, 

which 

compares  the  extracted 

harmonic 

content 

cf  the 

squa  re 

wave  as  produced  by  t 

he  SEDUCE 

routine. 

with  the 

theoreti 

cal  expected  values.  The 

test  was 

actually 

performed  for 

several  input  frequencies  ranging 

from  5 Hz 

to  over 

100  Hz, 

however,  the  resulting 

harmonic 

spectrum 

is  shown  only 

for  the  10  Hz  signal 

so  as  to 

illustrate  as  many  harmonics  as  possible. 

For  comparison  purposes,  the  phase  shift  realized  with 
and  without  compensation  within  the  analysis  program  are 
plotted  as  a function  cf  frequency  in  Fig  13. 


GURE  12  - SQUARE  WAVE  RECONSTRUCTION  HARMONIC  SPECTRUM 


FIGURE  13  - EFFECT  OF  COMPENSATION  ON  INDUCED  PHASE  ERROR 


VI • SYSTEM  APPLIC AT  TON 


Subsequent  to  the  qualification  tests  and  refinement  of 
the  reduction  algorithm,  the  system  was  applied  to  the 
actual  experimental  environment  for  which  it  was  intended. 
The  system  was  integrated  into  the  CCR  airfoil  experimental 
set-up  as  illustrated  in  Fig  14.  This  phase  of  the 
development  was  conducted  for  two  important  reasons: 

* Evaluate  the  performance  of  the  system  under  actual 
laboratory  conditions  in  search  of  further  improvement  areas. 

* Examine  the  Coanda  sheet  pressure  profile  with 
respect  to  phase  and  amplitude  while  sinusoidally  modulating 
the  plenum  pressure  of  the  airfoil  section. 

A.  OPERATING  CONDITIONS 


The  wind  tunnel  was  configured  to  operate  with  steady 
flow  during  this  initial  evaluation  run.  Only  the  plenum 
pressure  of  the  airfoil  section  was  modulated  sinusoidally 
with  various  driving  frequencies  ranging  from  3.7  Hz  to  13.7 
Hz . 


Previous  work,  presented  in  Refs  7 and  9,  produced 
measurements  of  the  Coanda  sheet  pressure  profile  using  data 
from  a true  FMS  meter.  These  data  were  hand  logged  and 
plotted.  A measurement  of  the  phase'  relationshi p was  not 
possible  using  this  technique,  as  the  phase  meter  was 
inaccurate  in  the  low  frequency  range  investigated. 
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Digital  data  acquisition,  therefore,  provided  the  first 
opportunity  for  observing  the  phase  shift  between  the 
driving  force  and  the  pressure  reaction  on  the  surface  of 
the  airfoil.  Included  in  Appendix  F is  the  CONTROL  file 
used  in  this  experimental  run.  600  datum  points  were 
recorded  at  5-millisecond  intervals  for  each  analog  channel. 
The  channels  sampled  were: 

1.  C'n  0 Plenum  reference  pressure 

2.  Ch  1 Scanivalve  pressure  (charnels  10  thru  17) 

3.  Ch  2 Hot  wire  ann emometer 

At  each  frequency,  the  Scanivalve  was  cycled  along  each 
of  the  indicated  channels  which  corresponded  to  stations  23 
through  30  of  the  airfoil.  The  actual  logging  of  the  more 
than  86,000  data  points  required  approximately  U5  minutes, 
of  which  approximately  35  minutes  were  devoted  to  effecting 
adjustment  of  the  tunnel  operating  conditions  and  driving 
frequency . 

Figures  15  through  20  show  the  graphical  results  of  the 
data  reduction  which  followed.  Credibility  is  lent  to  the 
results  by  the  close  correlation  achieved  with  the  previous 
investigative  efforts,  and  the  consistency  displayed  among 
results  of  individual  runs. 


The  graphical  results  of  the  phase  extraction  process 
are  presented  for  documentary  purposes  in  Figs  21  through 
26.  It  was  not  within  the  scope  of  this  work  to  analyze  in 
detail  the  aerodynamics  of  the  CCR.  Therefore,  the  reader  is 
directed  to  refs.  8 and  11  for  more  explicit  information 
regarding  the  CCR  analysis. 
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FIGURE  14  - SYSTEM  APPLICATION  CONFIGURATION 


CDHNDR  5HEET  PRE55URE  PRDE 


fAIDW/(ilUS)d 


FIGURE  15  - FUNDAMENTAL  MODE  COANDA  SHEET  PRESSURE 


CDHNOR  5HEET  PRE5SURE  PRDF l LE 


RE  16  - FUNDAMENTAL  MODE  COANDA  SHEET  PRESSURE 
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FIGURE  20  - FUNDAMENTAL  MODE  COANDA  SHEET  PRESSURE 


5THT10N 

FIGURE  21  FUNDHHENTHL  MDI>E  COflNDH  SHEET  FHHSE  DISTRIBUTION 


5TRTIDN 

FUNDAMENTAL  MODE  COHNDN  5HEET  PHASE 
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FUNDRMENTHL  MODE  CORNDR  SHEET  PHRSE  DISTRIBUTION 
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' I EURE  25  FUNDRMENTHL  MODE  CDRNDR  SHEET  PHHSE  D I STR I BUT 


VII. 


CONCLUSIONS  AND  RECOMMENDATION’S 


During  the  course  of  the  acguisition  system  development, 
modifications  were  constantly  made  with  the  intent  of 
improving  the  performance  or  operator  interface.  System 
qualification  and  implementation  disclosed  several 
additional  areas  in  need  of  improvement  and,  based  on  the 
experienced  gained  up  to  the  time  of  this  writing,  the 
upgrade  items  discussed  in  this  section  are  believed  to  be 
worthy  of  inclusion  in  any  further  development  or  future 
generations  of  the  subject  system.  In  some  cases 
alternative  solutions  to  existing  shortcomings  are 
presented,  taxing  into  consideration  current  industry 
developments  in  compatible  hardware  modules. 


A.  INTERCHANNEL  SAMPLING  LAG 


As  previously  discussed,  the  finite  amount  of  time 
required  for  th°  processor  to  switch  from  one  analog  channel 
to  the  next,  and  make  a conversion,  caused  an  apparent  phase 
shift  in  the  resulting  reconstruction  of  two  or  more 
adjacent  channel  signals.  This  problem  was  partially 
overcome  by  time  adjustments  within  the  reduction  algorithm. 
However,  inaccuracies  were  still  attributable  *o  this 
problem . 
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Two  additional  approaches  to  the  problem  remain: 


1 . Interchann el  Delay 

Effecting  a reduction  in  the  interchannel  delay 
time,  thereby  reducing  the  relative  influence  of  the  lag,  is 
one  possible  solution.  This  could  be  accomplished  by  the 
inclusion  of  a DMA  module  within  the  MDS  mainframe  to 
augment  the  capabilities  of  the  SINETRAC-800.  This  solution 
although  not  absolute,  would  achieve  a decrease  of  the 
interchar.r.el  delay  from  74.5  microseconds  to  15 
microseconds . 

2 • Individual  Sample  and  Hold  Cir cui t rv 

The  system  as  described  herein  contained  only  one 
sample  and  hold  circuit  which  was  located  downstream  of  the 
multiplexor  unit.  Since  each  channel  shared  the  same  sample 
and  hold  circuit,,  it  was  impossible  to  strobe  all  channels 
simultaneously.  Inclusion  of  an  independent  sample  and  hold 
circuit  element  dedicated  to  each  analog  channel  input  would 
eliminate  the  phase  shift  problem  completely,  since  all 
channels  would  be  sampled  at  precisely  the  same  instant  when 
triggered  by  a common  source.  The  sample  and  hold  circuit 
would  maintain  the  DC  level  until  the  A/D  was  aale  to  poll 
the  individual  inputs  through  the  multiplexor.  This  concept 
is  illustrated  in  Fig  27. 
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Single  Sample  and  Hold 


Multiple  Sample  and  Hold 


FIGURE  - 27  SINGLE  7S  MULTIPLE  SAMPLE  AMD  HOLD  CONCEPT 
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B. 


SYSTEM  ACQUISITION  SPEED 


As  presented,  the  acquisition  system  was  limited  to  an 
absolute  maximum  sampling  rate  of  500  Hz  for  more  than  one 
analog  channel  input.  This  rate  could  be  improved  for  a few 
more  channels  to  a maximum  of  1 KHz  with  modifications  to 
the  timer  interrupt  and  use  of  the  program  interrupt  mode  on 
the  SINETRAC-300. 

For  any  significant  improvement,  however,  the  actual 
start  of  scan  trigger  would  require  alternate  sourcing.  The 
A/C  board  provided  for  an  on-board  control  of  the  scan  clock 
or  external  triggering.  A modification  to  the  triggering  of 
the  scan  clock  could  be  effected  with  minimal  additional 
circuitry  of  local  design,  utilizing  a general  purpose 
proto-typing  circuit  board  for  generation  of  a strobe  or 
sensing  of  an  external  syr.cronization  pulse.  It  is 
important  to  realize  that  any  such  design  should  attempt  to 
retain  software  control  over  the  sampling  rate  so  as  net  to 
lose  this  flexibility  feature. 

Tremendous  reductions  in  software  could  be  realized  with 
the  addition  of  the  Direct  Memory  Access  module.  This 
addition  would  increase  the  maximum  scan  rate  attainable 
from  .5  KHz  to  approximately  11  KHz  for  6 channels  or  from  1 
KHz  to  33  KHz  for  2 channels  of  input. 

In  short,  the  addition  of  a DMA  module  is  hiahly 
recommended  in  consideration  of  the  multiple  improvements  in 
system  performance  that  it  affords  for  a modest  expenditure. 
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c. 


DATA  PEC UCTION 


The  concept  of  locally  reducing  the  data  has  many 
advantages,  and  likewise  disadvantages,  which  must  be 
considered  in  future  modifications  to  the  system-  The 
decision  to  locally  reduce  data  was  based  upon  two  major 
factors.  First,  it  was  desired  that  the  feasibility  of 
local  reduction  on  a microprocessor  be  investigated. 
Secondly,  during  the  design  stages  the  only  data 
communications  link  available  to  the  tf.F.  Church  computer 
facility  IEM-360  for  remote  processing  was  via  Teletype 
speed  (110  baud)  modem.  Anticipating  the  generation  of 
250,000  words  of  data  each  experimental  session, 
transmission  over  the  existing  time-share  system  network  was 
deemed  unreasonable.  Transfer  of  this  volume  of  iata  would 
have  required  at  best  7 hours  real  time,  assuming  minimal 
handshaking  and  system  interruptions.  The  potential  of 
generating  several  data  diskettes  during  one  experimental 
session  renders  a slow  transmission  rate  link  totally 
impractical.  The  CP/CMS  system  lid  not,  at  that  time, 
exhibit  the  reliability  necessary  for  such  a link  to  be  used 
effectively.  At  the  time  of  this  writing  the  computer 
center  was  completing  the  installation  of  communication 
links  capable  of  9600  baud.  transmission  rates.  At  this 
rate,  a full  diskette  (250K  bytes)  could  be  transmitted  in 
as  few  as  5 minutes.  This  capability  would  greatly  enhance 
the  computing  power  of  the  system,  considering  the  increased 
sophistication  of  reduction  techniques  and  output  facilities 
(plotters,  high  speed  printers,  etc.)  which  would  then  be 
made  available. 

Should  the  autonomy  of  the  system  be  an  over-ridina 
consider ition , it  is  recommenled  that  a high  speed  print's, 
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Digital  tc  Analog  (D/A)  nodule  and  an  X-Y  plotter  be 
included  as  suplementary  system  peripherals.  The  inclusion 
of  an  external  mathematics  module  would  further  improve  the 
system's  computational  speed  and  efficiency.  Such  a module, 
commercially  available,  would  perform  all  floating-point 
mathematical  operations  (add,  subtract,  multiply  and  divide) 
in  circuitry  external  to  the  3030  microprocessor  at 
approximately  ten  times  the  speed  currently  available.  The 
addition  of  these  modules  and  peripherals  would  upgrade  the 
system  into  a completely  independent,  highly  flexible  data 
acquisition  and  computational  device  capable  of  a multitude 
of  data  legging  or  analytical  tasks. 


APPENDIX  A 


GLOSSARY 


1.  accuracy:  The  ability  of  a measurement  system  to 
determine  the  true  level  or  state  of  a variable  in 
terms  according  to  standards  of  reference. 

2.  A/D:  analog  to  digital  (adjective  or  noun) 

3.  Alias:  Nhen  varying  signals  are'  sampled  at  equally 
spaced  intervals,  two  frequencies  are  considered  to  be 
aliases  cf  one  another  if  they  cannot  be  distinguished 
from  each  other  by  an  analysis  of  their  equally  spaced 
val ues. 

4.  ASCII:  American  Standard  Code  for  Information 

Interchange.  This  is  a seven-bit-plus-parity  code 
established  by  the  American  National  Standards 
Institute  to  achieve  cpmpatibility  between  data 
services.  Also  called  OSASCII. 

5.  assembly:  A listing  which  contains  both  source  code  and 
machine  code. 

6.  BADD:  A data  transmission  rat“  expressed  in  5ITs  per 
second . 

7.  BIT:  Binary  digiT.  A single  unit  of  information  in  a 
binary  word. 

8.  buffer:  A group  of  memory  locations  used  to  store 
specific  data  (input  data,  constants,  output  da'ra, 
etc . ) . 
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byte:  An  eight-BIT  word  which  is  processed  as  a single 

quantity. 

CPU:  Central  Processing  Unit.  The  area  of  the 

microprocessor  which  computes  and  sequences  all  logic 
and  arithmetic  functions. 

CRT:  'Cathode  Ray  Tube  - A televis ion- like  picture  tube 
used  in  visual  display  terminals. 

D/A:  The  inverse  of  the  A/D  process. 

DMA:  Direct  Memory  Access  - a facility  that  permits  I/O 
transfers  directly  into  or  out  of  memory  without 
passing  through  the  processor's  general  registers; 
either  performed  independently  of  the  processor  or  on  a 
cycle-stealing  basis. 

EPRCM:  erasable/programmable  read  only  memory 

Folding  Frequency:  The  lowest  frequency  which  is  its 
own  aiias,  or  that  which  is  one-half  the  sampling  rate 
when  samples  are  continuously  made  at  equal  intervals. 

I/O:  input/output 


K : A suffix  which  indicates  a group  of  1024  (2  ) items 

as  in  ' 4 K of  memory'  meaning  4096  memory  locations. 

Lag:  A difference  in  time  of  occurrence  between  two 

events. 

machine  code:  The  BIT  patterns  actually  used  by  the  U-P 
in  order  to  carry  out  its  assigned  logic  functions. 

MODEM:  MOdulator  DEModulator  - an  electronic  levice 

which  modulates  signals  transmitted  over  communications 
circuits. 

MUX:  a multiplexing  device 
. nibble:  The  upper  or  lower  four  3ITs  in  one  byte. 
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23.  page:  a 256  byte  segment  of  memory 

24.  RAM:  Random  access  memory.  Volatile  memory  used  for 
variable  storage  and  data  manipulation. 

25.  register:  A storage  location  located  in  the  CPU. 

26.  Resolution:  The  ability  to  determine  signal  differences 
in  varying  signals. 

27.  ROM:  read  only  memory,  non-volatile 

23.  Sample  and  Hold:  A device  for  sampling  the  amplitude  of 
a signal  at  a given  time  and  holding  that  amplitude. 

29.  Sampling  Theorem:  Nyguist's  result  that  equi-spaced 
data,  with  two  or  more  points  per  cycle  of  highest 
frequency,  allows  reconstruction  of  band-limited 
functions. 


30.  software:  The  program  which  resides  in  the  U-P's 
memory . 


APPENDIX  3 


PROGRAM 


PLOW  DIAGRAMS 
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ACQUIRE  PRDGRRM  FLOW  DIRGRRM 


RCQUIRF  PROERRM  FLOW  DIRERRM  CCONT) 
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ACQUIRE  PRDERRM  FLOW  DIRERRM  CCONT) 
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PROGRAM  LISTINGS 
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******************************** ********** 
EQUATES  FOR  DATA  ACQUISITION  MODULE 


■ 


******************************************* 


PORT  ASSIGNMENTS 


OOOO 

- 

PORTO 

EQU 

0 

0001 

Z 

PORT  1 

EQU 

1 

0002 

z 

P0RT2 

EQU 

2 

0003 

z 

P0RT3 

EQU 

3 

» 

• 

9 

SINETRACK  800  ADDRESS  ASSIGNMENT 

0010 

- 

BASE 

EQU 

10H 

0010 

z 

DSTAT 

EQU 

BASE 

001  1 

z 

DDATA 

EQU 

EASE+1 

001  1 

z 

START 

EQU 

EASc.  + 1 

0013 

z 

CONV 

EQU 

BASE  + 3 

0012 

z 

FINAL 

EQU 

BASE  +2 

0012 

z 

RDCUR 

EQU 

BASE+2 

0013 

z 

RDFNL 

EQU 

BASc+3 

0001 

z 

EOC 

EQU 

1 

OOSO 

z 

EOS 

EQU 

80H 

0000 

z 

DCMD 

EQU 

0 

» 

• 

9 

GENERAL 

I/O  ASSI 

GNME N i S 

00F4 

z 

TDATA 

EQU 

OF  4H 

;TTY  DATA 

00F5 

z 

TSTAT 

EQU 

0F5H 

;TTY  STATUS 

0QF5 

Z 

TCMD 

EQU 

0F5H 

;TTY  CONTROL 

00F6 

z 

CDATA 

EQU 

OF  6H 

; CRT  DATA 

00F7 

z 

CSTAT 

EQU 

0F7H 

;CRT  STATUS 

00F7 

z 

CCMD 

EQU 

0F7H 

; CRT  CONTROL 

OOFC 

Z 

I NT MS K 

EQU 

OFCH 

; INTER UPT  MASK 

OOFF 

z 

RCLK 

EQU 

OFFH 

; REAL  TIME  CLOCK 

9 

• 

9 

GENER AL 

EQUATES 

0005 

z 

ENTRY 

EQU 

005H 

;BDOS  ENTRY  PGIN 

0000 

Z 

BOOT 

EQU 

OOH 

; BOOT  POINT 

005C 

Z 

TFCB 

EQU 

05CH 

{DEFAULT  FOB 

0080 

Z 

TEUFF 

EQU 

080H 

{DEFAULT  BUFFER 

0001 

z 

TXRDY 

EQU 

1 

0002 

z 

RXRDY 

EQU 

2 

OOOD 

z 

CR 

EQU 

ODH 

000  A 

z 

LF 

EQU 

OAH 

******************************************** 

; BUFFER  ALLOCATION  4 
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DATA  ORGANIZATION 


****************  **********  **********  ******* 


0100 

7 

OR  3 

100H  ; VARI ABLE  AREA 

0100 

C30004 

JMP 

BEGIN 

0103 

524541 4420MS  31 : 

DB 

'READ  ERROR  S’ 

010F 

5752495445 MS  32: 

DB 

'WRITE  ERROR  S' 

01  1C 

4449534b  20MS  33 : 

DB 

’DISK  FULL  $* 

0127 

44495 245 43 MS  34: 

DB 

'DIRECTORY  FULL  S’ 

0137 

494E564 1 4CMS  35 : 

DB 

’INVALID  INPUT  PARAMETER  S' 

0150 

0D0D0D4 1 4EMS  36 : 

DB 

ODH,ODH,ODH, 'ANY  CHANGES?  Y/N  S 

0165 

0D0D0D45  44MS  37 : 

DB 

ODH  ,ODH ,ODH  , 'EDIT  CONTROL  FILES 

0 1 7b 

ODODOD444 1 MS  38 : 

DB 

ODH,ODH,ODH, ’DATA  DISK  PROTECTS 

0193 

54494D4520MS310: 

DB 

'TIME  SVO  SV1  S' 

01AE 

44415  441 20MS  31 1 : 

DB 

•DATA  TRUNCATED  S' 

0 1 BE 

47  4F  4F  4420MS  312: 

DB 

'GOOD  RUN?  Y/N  S’ 

0 1 CD 

00434F4E 

54CNTRL: 

DB 

0, 'CONTROL  ’ ,0,0, 0,0, 0,0,0 

01E0 

0050524F54PRTCT: 

DB 

0, ’PROTECT  ' ,0,0, 0,0, 0,0,0 

01F3 

004341 40 56CALIE: 

DB 

0 , ' CALVALU  • ,0,0, 0,0, 0,0,0 

0206 

0044415441DATA: 

DB 

0 , 'DATA  ’ ,0,0, 0,0, 0,0, 0,0 

02 1 A 

00 

E0FL3: 

DB 

0 

021  B 

0000 

TIME: 

D W 

0 

021  D 

0000 

TIMO: 

DW 

0 

021  F 

0000 

3CT0 : 

DW 

0 

0221 

0000 

POINT: 

DW 

0 ;BUFFER  POINTER 

0223 

0000 

SC  NTR : 

DW 

0 ; S C A N COUNTER 

0225 

0000000000 WORK : 

DB 

0,0, 0,0, 0,0  j WORKING  « R c. n 

022b 

0000 

PAGER : 

DW 

0 ; PA 3E  COUNTER 

022D 

00 

RODS: 

DE 

0 ; RECORDS  STORAGE 

022E 

00 

SVOO: 

DB 

0 ; INITIAL  SCAM  VALVE  0 B 

022F 

00 

SV01  : 

DB 

0 ; F I NAL  SCANIVALVE  0 PCS 

0230 

00 

SV10: 

0 ; INITIAL  SCANIVALVE  1 B 

0231 

00 

SV1 1 : 

DB 

0 ; FI NAL  SCANIVALVE  1 PCS 

0232 

00 

FLA  30: 

DB 

0 ; FLA  GO 

0233 

00 

FLA31 : 

DB 

0 ; FLA  3 1 

2000 

OR  3 

2000H  ; STAR i Cr  uni  A nP— n 

DEUF : 

2000 

00 

ICHNL! 

DE 

0 

2001 

00 

FCHNL : 

DE 

0 

2002 

00 

SVO: 

DB 

0 

2003 

00 

SV1 : 

DB 

0 

2004 

0000 

SCANS: 

DW 

0 

2006 

0000 

SCNRT : 

DW 

0 

2008 

0000 

FREG: 

DW 

0 

200A 

0000 

DUMY : 

DW 

0 

2000 

ocoocooc 

DW 

0,0 

0400 

OR  3 

400H  ;START  OF  PROGRAM  mREA 

BEGIN: 

> A >jC 

3 1 FF  1 F 

LXI 

SP  , 1 FFFh ; I NI 71 ALI EE  STACK 

0403 

214207 

LXI 

H ,TSVC  ; LOAD  INTERUPT  VECTOR 

r 


0406 

3EC3 

MVI 

A , OC  3H 

0408 

320800 

5TA 

08H 

040E 

220900 

SHLD 

OSH 

040E 

GDI  404 

CALL 

AUTO 

041  1 

C30000 

JP1P 

BOOT 

J******************************************* 

• 

9 

AUTO 

- AUTOMATI 

C CONTROL  SEQUENCE 

• 

9 

USES 

THE  EXISTING  CONTROL  FILE  IF 

• 

9 

IF  VALID,  SCANS 

THE  SPcCIFIED  ANALOG 

• 

9 

CHANNELS  AND  RECORDS  DATA  ON  DISK 

************************************  ******* 

AUTO: 

0414 

CD  1 705 

CALL 

PRLOAD 

; VALI D CONTROL  FILE? 

0417 

210F02 

LX  I 

H,DATA+S  ; ADDR  OF  EXTENSION 

04  1 A 

3E30 

MV  I 

A,  'O’ 

; ASCII  ZERO 

0410 

77 

MOV 

M , A 

04  1 D 

23 

I NX 

H 

04  1 E 

77 

MOV 

M , A 

04  1 F 

23 

I NX 

H 

0420 

77 

MOV 

Pi,  A 

0421 

3A2E02 

LDA 

SVOO  ; F 

cTCH  INITIAL  CHANNcL 

0424 

320220 

STA 

SVO 

{INITIALIZE  SVO 

0427 

3A3002 

LDA 

SV10 

•.fetch  initial  chanl 

042A 

320320 

STA 

SV1 

{INITIALIZE  SV1 

042D 

CD4108 

CALL 

CRLF 

{CARRIAGE  RET  LN  FEED 

0430 

119301 

LXI 

D, MSG  10 

; "TIME  , SVO, SV  1 " 

0433 

CD1 108 

CALL 

PRINT 

0436 

AF 

XRA 

A 

{CLEAR  ACCUMULATOR 

0437 

323202 

STA 

FLAGO 

{ CLE AR  FLAGO 

043A 

323302 

AUT10: 

STA 

FLAG  1 

{CLEAR  FLAG1 

043  D 

1 10040 

LXI 

D , 4000H 

{SET  HIGH  ADDRESS 

0440 

21 1020 

LXI 

H , DBUF+ 1 OH 

0443 

0E00 

MVI 

C ,0 

0445 

CDE1F9 

CALL 

OFSElh 

0445 

CDE808 

CALL 

SETVLV 

044c 

2A1B02 

LHLD 

TIME 

{F^TCH  CURRENT  TIMi 

044E 

CD340S 

CALL 

PrtHL 

;PRI NT  n ,L  On  CRT 

0451 

CD0B05 

CALL 

TAB 

0454 

3A0220 

LDA 

SVO 

{FETCH 

0457 

CD2708 

CALL 

PHEX 

{PRINT  ASCII  PAIR 

045A 

CD0B05 

CALL 

TAB 

045D 

3A0320 

LDA 

SV1 

0460 

CD2708 

CALL 

PHEX 

0463 

CD0B05 

CALL 

TAB 

0466 

CDC405 

CALL 

SCAN 

0469 

2A2102 

LHLD 

POINT 

{FETCH  BUFFER  POINTER 

046C 

7C 

MOV 

A ,H 

O46D 

D620 

SUI 

20H 

046F 

67 

MOV 

H,A 

0470 

29 

DAD 

H 

{SHIFT  LEFT  ONE 

83 


r 


0471 

D27E04 

JNC 

AUT20 

• 

f 

0474 

26FF 

mvi 

H.OFFH 

;SET  MAX  FILE  LENGTH 

0476 

t.5 

PUSH 

H 

0477 

1 1AE01 

LXI 

D.MS31 1 

; "DATA  TRUNCATED" 

047A 

CD  1 108 

CALL 

PRINT 

0470 

El 

AUT20 : 

POP 

H 

047E 

7C 

MOV 

A ,H 

{NUMBER  RODS  TO  WRITE 

047F 

3C 

I MR 

A 

{INCREMENT  BY  QNc. 

0480 

322002 

STA 

RODS 

{STORE  IN  ROD  COUNTER 

0483 

210020 

LXI 

H.D&UF 

{POINT  TO  BEG  OF  DATA 

0486 

1 10602 

LXI 

0 , DATA 

{DATA  FCE 

0489 

CD9507 

CALL 

WRFILE 

{WRITE  THE  DATA  FILE 

048C 

3A2F02 

LDA 

SV01 

{FETCH  LST  TO  BE  SCND 

048F 

47 

MOV 

& , A 

5 

0490 

3A0220 

LOA 

svo 

{FETCH  CURRENT  SVO 

0493 

E8 

CMP 

B 

{SAME? 

0494 

C2A604 

AUT21 : 

JtNZ 

AUT22 

;N0  - DON'T  SET  FLAGO 

0497 

3EFF 

MVI 

A , OFFH 

• 

♦ 

0499 

323202 

STA 

FLAGO 

{SET  FLAGO 

049C 

3A2E02 

LDA 

SVOO 

{FETCH  FIRST  TO  SCAN 

049F 

30 

DCR 

A 

04A0 

320220 

STA 

SVO 

{RESET  CURRENT  CH.ML 

04A3 

C3AB04 

AUT22: 

JMP 

AUT24 

04A6 

FE  18 

CPI 

24 

{MAX  VALUE  tXCEEDED? 

04A8 

CA9704 

AUT24 : 

JZ 

AUT21 

;YES  - SET  FLAGO 

04AB 

3 A3  1 02 

LDA 

SV1  1 

{LAST  SV1  TO  SCAN 

04AE 

47 

MOV 

6, A 

• 

• 

04AF 

3A0320 

LOA 

SV1 

{FETCH  CURRENT  SV1 

04E2 

&8 

CMP 

B 

{SAME? 

04E  3 

C2C504 

AUT31  : 

JNZ 

AUT32 

;N0  - DON'T  SET  FLAG  1 

04B6 

3EFF 

MVI 

A, OFFH 

• 

0 4B8 

323302 

STA 

FLA  3 1 

{ SiT  r LA  G 1 

04&B 

3A3002 

LDA 

SV10 

{FETCH  1ST  TO  SCAN 

04BE 

30 

DCR 

A 

04BF 

320320 

STA 

SV1 

{RESET  CURRENT  CHNL 

0402 

C3CA04 

AUT32 : 

JMP 

AUT3  4 

04C5 

FE30 

CPI 

48 

{MAX  VALUE  EXCEEDED? 

04C7 

CAB604 

AUT34 : 

JZ 

AUT31 

;YES  - SET  FLAG l 

04CA 

3A3202 

LDA 

FLA30 

; FE T CH  FLAGO 

04CD 

47 

MOV 

B » A 

04CE 

3A3302 

LDA 

FLAG  1 

{FETCH  FLAG  1 

04D1 

4F 

MOV 

C t A 

0402 

AO 

AMA 

b 

{BOTH  SET? 

0403 

C2F504 

JNZ 

EXIT 

{YES  - EXIT  AUTO  MODE 

sl 


NEXT 


04D6 

3A0220 

LDA 

04D9 

3C 

I NR 

04DA 

320220 

STA 

04DD 

3A0320 

LDA 

04E0 

3C 

I NR 

04E1 

320320 

STA 

04E4 

211102 

NEXT  1 : 

LXI 

04E7 

7E 

MOV 

04E8 

3C 

I NR 

04E9 

77 

MOV 

04EA 

FE3A 

CPI 

04EC 

DA3D04 

JC 

04EF 

3630 

MVI 

04F1 

2B 

DCX 

04F2 

C3E704 

EXIT: 

JMP 

04F5 

1 1BE01 

LXI 

04FS 

CD1 108 

CALL 

04FB 

CDFC07 

CALL 

04FE 

FZ59 

CPI 

0500 

CO 

RNZ 

0501 

1 1 £00 1 

LXI 

0504 

CD5 106 

CALL 

0507 

CDAE08 

CALL 

050  A 

C9 

TAB: 

RET 

050B 

0608 

TAB  1 : 

MVI 

050D 

3E20 

MVI 

050F 

CD0508 

CALL 

0512 

05 

DCR 

0513 

C20D05 

JNZ 

0515 

C9 

RET 

j ************* 

• Tk 
» 

• 

PRLOAD 

♦ 

PRLOAD: 

0517 

CD5008 

CALL 

05  1 A 

1 1CD01 

LXI 

05  1 D 

21 1020 

LXI 

0520 

CD7007 

CALL 

0523 

111020 

LXI 

0526 

D5 

PUSH 

0527 

CD  1 108 

CALL 

052A 

El 

POP 

052B 

CDDB06 

CALL 

052E 

CDDB06 

CALL 

SVO 


A 

{STEP  ONCE 

SVO 

SVl 

A 

SVl 

{STEP  ONCE 

H.DATA+ll  {LOAD  ADDR  OF  EXT 

A.M  {FETCH  ASCII  VALUE  OF  LSb 

A 

{INCREMENT  IT 

M,A 

{RESTORE  IN  MEMORY 

• . • 

• 

{EXCEED  9? 

AUT10 

{NO  - SCAN  AGAIN 

M , 30H 

{RESTORE  IN  MEMORY 

H 

{GET  NEXT  MSB 

NEXT  1 

{ADJUST  NEXT  MSB 

D.MSG12 

{"GOOD  RUN  Y/N" 

PRINT 

CRTIN 

{GET  CHAR  FROM  CONS 

* Y * 

{YES  RESPONSE? 

{NO  - RETURN 

D ,PRTCT 

SETFCB 

MAKE 

{WRITE  PROTECT  FILE 

B , 8 

{COUNTER  FOR  8 

BLrtNKS 

A,20H 

{ASCII  BLANK 

CRTOUT 

{SEND  TAB  CHAR 

TO  CRT 

B 

TAEl 

***************************** 
- READS  IN  CONTROL  FILE  AND 
EXECUTES  IF  VALID 
***************************** 


LOG A {LOGIN  DISK  A 
D , CNTRL  ;PT  TO  CNTRl  FILE  ELK 
H,DBUF+10H  ; PT  TO  DATA  BUFFER 
RDFILE  ;RD  CNTRL  FILE 
D , DBUF+ 1 OH 
D {SAVE 

PRINT  {DISPLAY  CONTRH.  FILE 
H {RESTORE  H 

COLON  {LOOK  FOR  FIRST  COLON 
COLON  {LOOK  FOR  END  COLON 
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r 


0531 

CDDB06 

CALL 

COLON 

; F I N D THIRD  COLON 

0534 

E5 

PUSH 

H 

0535 

CDE306 

CALL 

FLTHX 

{FLOATING  TO  HEX 

0538 

220420 

SHLD 

SCANS 

{STORE  HEX  IN  SCANS 

0536 

El 

POP 

H 

053C 

CDDB06 

CALL 

COLON 

{FIND  NEXT  COLON 

053F 

E5 

PUSH 

H 

0540 

CDE306 

CALL 

FLTHX 

{FLOATING  TO  HEX 

0543 

220620 

SHLD 

SC  NR  T 

{STORE  IN  SCAN  RATE 

0546 

El 

POP 

H 

0547 

CDDB06 

CALL 

COLON 

{FIND  NEXT  COLON 

054A 

E5 

PUSH 

H 

0546 

CDE306 

CALL 

FLTHX 

{CONVERT 

054E 

7D 

MO  V 

A ,L 

{FETCH  RlTURNED  VALUE 

054F 

320020 

STA 

ICHNL 

{PUT  IN  INITIAL  CHNL 

0552 

El 

POP 

H 

0553 

CDDB06 

CALL 

COLON 

0556 

E5 

PUSH 

H 

0557 

CDE306 

CALL 

FLTHX 

055  A 

7D 

MOV 

A ,L 

{FETCH  RETURNED  BYTE 

055E 

320120 

STA 

FCHNL 

{STORE  IN  FINAL  CHNL 

055E 

E t 

POP 

H 

055F 

CDDB06 

CALL 

COLON 

0562 

E5 

PUSH 

H 

0563 

CDE306 

CALL 

FLTHX 

0566 

7D 

MOV 

A ,L 

0567 

322E02 

STA 

SVOO 

; 1ST  SCANIVALVE  0 SET 

056A 

El 

POP 

H 

0566 

CDD606 

CALL 

COLON 

056E 

E5 

PUSH 

H 

056F 

CDE306 

CALL 

FLTHX 

0572 

7D 

MOV 

A ,L 

0573 

322F02 

STA 

SV01 

;LST  SCANIVALVE  0 SET 

0576 

El 

POP 

H 

0577 

CDDB06 

CALL 

COLON 

057A 

E5 

PUSH 

H 

0576 

CDE306 

CALL 

FLTHX 

057E 

7D 

MOV 

A,L 

057F 

323002 

STA 

SV10 

; 1ST  SCANIVALVE  1 SET 

0582 

E 1 

POP 

H 

0583 

CDD606 

CALL 

COLON 

0586 

E5 

PUSH 

H 

0587 

CDE306 

CALL 

FLTHX 

058  A 

7D 

MOV 

A ,L 

0586 

323102 

STA 

SVl  1 

; LST  SCANIVALVE  1 SET 

058E 

E 1 

POP 

H 

******************************************** 

CHECK  WITH  OPERATOR  FOR  VALID  CONTROL 
FILE 

******************************************** 
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1 


058F 

1 15001 

LXI 

D ,MSG6 

; " ANY  CHANGES?" 

0592 

CD  1 108 

CALL 

PRINT 

0595 

CDFC07 

CALL 

CRTIN 

; GET  CHAR  FROM  CONS 

0598 

FE4E 

CPI 

•N* 

; ” NO"  RESPONSE? 

059A 

116501 

LXI 

D,MS37 

; "EDIT  CONTROL  FILE" 

059D 

C2DA07 

JNZ 

ERREX 

;EXI T PROGRAM 

; ******************************************** 

• 

» 

WRITE 

THE  CONTROL  FILE  ON  DISK  B 

• ******************************************* 

05  AO 

3A6B00 

LDA 

TFCB+15 

; FETCH  RECORD  COUNT 

05  A3 

3C 

I NR 

A 

05  AA 

322D02 

STA 

RCDS 

{STORE  IN  MEMORY 

05A7 

CD5808 

CALL 

LOGfc 

{LOGIN  DISK  B 

05  AA 

1 1E001 

LXI 

D.PRTCT 

; PT  TO  PROTECT  BLOCK 

05  AD 

CD5106 

CALL 

SETFCE 

; SET  FCB 

05B0 

CDBE08 

CALL 

SEARCH 

{SEARCH  FOR  PROTECT 

05E3 

3C 

I NR 

A 

{DOES  IT  C.XIST ? 

05B  4 

1 17B01 

LXI 

D , MS  38 

{"DATA  DISK  PROTECTED" 

05B7 

C2DA07 

JNZ 

ERREX 

{YES  - EXIT  PROGRAM 

05B  A 

1 1CD01 

LXI 

D ,CNTRL 

;PT  TO  CONTROL  BLOCK 

05BD 

211020 

LXI 

H,DEUF+ 

10H  ;PT  TO  STORED  INFO 

05C0 

CD9507 

CALL 

WRFILE 

{WRITE  CONTROL  TO  B 

05C3 

C9 

RET 

• ******************************************* 

• 

9 

SCAN  - 

COMP LET 

ES  N SCANS  OF  M CHNLS 

• 

9 

ENTRY: 

SCANS  = 

NUMBER  OF  SCANS 

• 

9 

ICHNL  = 

INITIAL  CHNL  TO  SCAN 

• 

9 

FCHNL  = 

FINAL  CHANNEL  TO  SCAN 

• 

9 

TIME  = 

2 BYTE  TIME  IN  MS 

• 

9 

EXIT: 

REGISTERS  UNCHANGED 

j ******************************************* 

SCAN: 

05C4 

E5 

PUSH 

H 

05C5 

D5 

PUSH 

D 

05C6 

C5 

PUSH 

E 

05C7 

F5 

PUSH 

PSW 

05C8 

3A0020 

LDA 

ICHNL 

;Fc.TCH  INITIAL  CHANNEL 

05CE 

D31  1 

OUT 

START 

{SET  IT 

05CD 

3A0120 

LDA 

FCHNL 

{FETCH  FINAL  CHANNEL 

05  DO 

D312 

OUT 

FINAL 

{SET  IT 

05D2 

2A0620 

LHLD 

SCNRT 

{FETCH  SCAN  RATE 

05D5 

221 D02 

SHLD 

TIMO 

{STORE  IN  TIME  FACTOR 

05D8 

21FD05 

LXI 

H ,SCANA 

{GET  I NT  SVC  JUMP 

05DB 

CD2E07 

CALL 

TIMER 

{C.NABLE  INT  TIMER 

05DE 

2A0420 

LHLD 

SCANS 

{FETCH  # OF  SCANS 

05E  1 

222302 

SHLD 

SCNTR 

{PUT  IN  SCAN  COUNTER 

05E4 

2A1B02 

LHLD 

TIME 

{FETCH  TIME 

05E7 

211020 

LXI 

H ,DBUF+ 10H  ; GET  BUFFER  LOChT 

Q5EA 

222102 

SCAN8 : 

SHLD 

POINT 

; STORc.  IN  POINTER 

87 


f* . ' 


05ED 

2A2302 

LHLD 

SCNTR 

{FETCH  SCAN  COUNT 

05F0 

7C 

MOV 

A ,H 

05F 1 

B5 

ORA 

L 

{FINISHED? 

05F2 

C2ED05 

JNZ 

SCANS 

;N0  - KEEP  SCANNING 

05F5 

CD6907 

CALL 

TIMOFF 

{KILL  INTERUPT  ROUTI 

05F8 

FI 

POP 

PSW 

05F9 

Cl 

POP 

B 

05  FA 

D 1 

POP 

D 

05FB 

El 

POP 

H 

{RETORED 

05  FC 

C9 

SC ANA: 

RET 

05FD 

E5 

PUSH 

H 

05FE 

D5 

PUSH 

D 

05FF 

C5 

PUSH 

B 

0600 

F5 

PUSH 

PSW 

0601 

2A0620 

LHLD 

SCNRT 

SET  SCAN  RATE 

0604 

221D02 

SHLD 

TIMC 

RESET  TIMGUT  FACTOR 

0607 

2A2102 

LHLD 

POINT 

SET  BUFFER  POINTER 

060A 

3E00 

M VI 

A ,DCMD 

INITIALIZATION  CMD 

060C 

D310 

OUT 

DSTAT 

SET  FLIP  FLOPS 

060E 

3A1B02 

LDA 

TIME 

SET  TIME 

C61  1 

77 

MOV 

M , A 

STORE  IN  BUFFER 

0612 

23 

I NX 

H 

MOVE  POINTER 

0613 

3AIC02 

LDA 

TIME+1 

SET  2ND  BYTE  OF  TIM 

0616 

77 

MOV 

M » A 

STORc  In  DATA  CELL 

0617 

23 

SCANO: 

i NX 

H 

MOVE  POINTER 

0618 

D313 

OUT 

CCNV 

START  CONVERSION 

06 1 A 

3c.02 

MVI 

A, 2 

SET  DELAY  COUNTER 

06  1 C 

00 

SCAN  1 : 

NOP 

{EXTRA  DELAY 

06  1 D 

3D 

DCR 

A 

, GUI  T LOOP? 

06  1 E 

C21D06 

JNZ 

SCAN1 

NO  - KEcP  COUNTING 

0621 

D&10 

IN 

DSTAT 

FETCH  STATUS 

0623 

E601 

ANI 

EOC 

0625 

C23 106 

JNZ 

SCAN3 

YES  - SO  READ  DATA 

0628 

3600 

MVI 

M,OCri 

Insert  error  flms 

062A 

23 

I NX 

H 

MOVE  POINTER 

062E 

3600 

MVI 

M , OOH 

INSERT  ERROR  FLAG 

062D 

23 

I NX 

H 

MOVE  POINTER 

062E 

C33906 

SCAN3 : 

JMP 

SCAN4 

READ  NEXT  CHANNEL 

0631 

DEI  l 

IN 

DDATA 

ScT  LSB  C P DATA 

0633 

77 

MOV 

M » A 

STORE 

0634 

23 

I NX 

H 

MOVE  POINTER 

0635 

DEI  1 

IN 

DDATA 

SET  MSB  OF  DmTA 

0637 

77 

MOV 

M * A 

STORE 

0638 

23 

SCAN4: 

I NX 

H 

MOVE  POINTER 

0639 

DE10 

IN 

DSTAT 

FETCH  STATUS 

063c 

£680 

ANI 

EOS  ; 

cND  OF  SCAi'f  ? 

58 


063  D 

CA  1 806 

JZ 

SCANO 

; NO  - CONV  NEXT  CHNL 

0640 

222102 

SHLD 

POINT 

{STORE  POINTER 

0643 

2A2302 

LHLD 

SCNTR 

{FETCH  SCAN  COUNT 

0646 

2S 

DCX 

H 

{COUNT  DGWn  GNc 

0647 

222302 

SHLD 

SCNTR 

{RESTORE  UPDATED  COUNT 

Q64A 

FI 

POP 

PSW 

064b 

Cl 

POP 

B 

064C 

0 1 

POP 

D 

064D 

£ 1 

PGP 

H 

064c 

C35C07 

JMP 

TSVCO 

{RETURN 

• *************************** ***************** 

S£TFCE 

- MOVES 

AN  INITIAL  FCB  INTO 

TFCB 

AREA 

ENTRY: 

D,E  = FILNAME  BLOCK 

;**************************♦********♦♦****** 

SETFCE : 

0651 

£5 

PUSH 

H 

{SAVE 

0652 

215C00 

LXI 

H , 05CH 

{DEFAULT  FCB 

0655 

C5 

PUSH 

b 

; SAVE 

0656 

0613 

MV  I 

b,  19 

{SET  COUNTER 

S£TF 1 : 

0658 

1A 

LDAX 

D 

{FETCH  BYTE  TO  MOVE 

0659 

77 

MOV 

M , A 

{STORE  IN  TFCB  AREA 

065  A 

23 

I NX 

h 

{INCREMENT  H 

065b 

13 

I NX 

D 

{INCREMENT  D 

0650 

05 

DCR 

B 

{ FI N I SHcD  7 

065D 

C25806 

JNZ 

SETF1 

; NG  -JET  ANOTHER  BYTE 

0660 

AF 

XRA 

A 

{CLEAR  ACCUM 

0661 

327000 

STA 

TFCo+52 

0664 

Cl 

POP 

E 

0665 

£1 

POP 

H 

0666 

C9 

RET 

******************************************* 

DECHX  - 

CONVERTS  6 BCD  BYTES  TO  2 HEX 

* 

ENTRY: 

SIX  BCD  BYTcS  STARTING 

AT  'WORK* 

* 

EXIT: 

TNG  HEX  AT  ' WGRK+4* 

******************************************* 

)£CHX : 

0667 

212502 

LXI 

H , WORK 

{POINT  TO  WORK  A REn 

066  A 

54 

MOV 

D,H 

{DUPLICATE  IN  D 

066b 

5D 

MOV 

EfL 

{DUPLICATE  IN  E 

0660 

CDS 5 06 

CALL 

HEXBIN 

{CONVERT  1ST  PR  TO  n£X 

066F 

12 

STAX 

D 

{STORE  In  WORK 

0670 

13 

I NX 

D 

{MOVE  STORAGE  POINTER 

0671 

CD8506 

CALL 

HEXBIN 

{CONVERT  SECOND  Pm Ik 

0674 

12 

STAX 

D 

{STORE  IN  WORK+1 

0675 

13 

I NX 

D 

{MOVE  P C I N T E R 

0676 

CD8506 

CALL 

HEXBIN 

{CONVERT  THIRD  PAIR 

89 


0679 

12 

STAX 

D 

067a 

13 

I NX 

D 

067B 

AF 

XRA 

A 

{CLEAR  ACCUMULATOR 

067C 

12 

STAX 

D 

{LOAD  EERO  IN  WORK+3 

067D 

13 

I NX 

D 

{MOVE  POINTER 

067E 

212502 

LXI 

H , WORK 

0681 

CD3E06 

CALL 

BCD2HX 

0684 

09 

RET 

{RETURN 

• ******************************************** 

•.SUBROUTINES  - 

ECD2HX 

AND  HEXBIN 

;****************************************** 

• 

9 

• 

HEXBIN: 

0685 

7E 

MOV 

A,PI 

{FETCH  1ST  BYTE 

0686 

17 

RAL 

0667 

l 7 

RAL 

0688 

17 

RAL 

0689 

17 

RAL 

{SHIFTED  TO  HI  OH  NIB 

068  A 

23 

I NX 

H 

{MOVE  POINTER 

0685 

56 

ORA 

M 

{BRING  IN  LOW  NIBBLE 

0680 

23 

I NX 

H 

{MOVE  POINTER 

068  D 

09 

RET 

{RETURN 

ECD2HX : 

06SE 

CDC906 

CALL 

BCDBN 

0691 

23 

I NX 

H 

0692 

CDC906 

CALL 

BCDBN 

0695 

23 

I NX 

H 

0696 

CDC906 

CALL 

BCDBN 

0699 

CD9D06 

CALL 

MULT 

0690 

09 

RET 

MULT: 

069D 

3A2502 

LDA 

WORK 

06  AO 

5F 

MOV 

E , A 

06A 1 

1600 

MVI 

D,0 

06  A3 

210000 

LXI 

H , 0 

06A6 

CDC106 

CALL 

MUL10 

06A9 

£5 

XCH3 

06  AA 

210000 

LXI 

H ,0 

06  AD 

CDC106 

CALL 

MUL10 

0650 

3A2602 

LDA 

WORK+1 

0653 

1600 

MVI 

D ,0 

0655 

5F 

MOV 

E ,A 

0656 

C DC  1 06 

CALL 

MUL10 

0659 

3A2702 

LDA 

WORK +2 

06BC 

1600 

MVI 

D,0 

06BE 

5F 

MOV 

E»A 

06BF 

19 

DAD 

D 

0600 

09 

RET 

MUL10: 

0601 

0664 

MVI 

B,  100 

90 


MUL20: 


06C3 

19 

DAD 

D 

06C4 

05 

DCR 

B 

06C5 

C2C306 

JNZ 

MUL20 

06C8 

C9 

RET 

BCDBN : 

06C9 

7E 

MOV 

A ,M 

Q6CA 

4F 

MOV 

C , A 

06CB 

E60F 

AMI 

OFH 

06CD 

5F 

MOV 

E , A 

06CE 

79 

MOV 

A ,C 

06CF 

E6F0 

ANI 

OFOH 

06D 1 

OF 

RRC 

0SD2 

OF 

RRC 

06D3 

4F 

MOV 

C , A 

06D4 

OF 

RRC 

06D5 

OF 

RRC 

06D6 

81 

ADD 

C 

06D7 

07 

RLC 

06D8 

83 

ADD 

E 

06D9 

77 

MOV 

M , A 

06DA 

C9 

RET 

• **************************** *************** 

; COLON 

- FINDS  THE  NEXT  COLON 

• 

9 

IN  MEMORY  STARTING  AT  n,L 

• 

9 

EXIT:  H,L  POINTS  TO  MEMORY 

• 

9 

POSITION  AFTER 

• ******************************************* 

COLON: 

06DB 

3E3  A 

MVI 

A • . • 

H , . 

COL10: 

06DD 

BE 

CMP 

M 

06DE 

23 

I NX 

H 

06DF 

C2DD06 

JNZ 

COL  1 0 

06E2 

C9 

RET 

• **************************><**************** 

; FLTHX 

- SCANS  A BLOCK  OF  MEMORY  FOR 

• 

9 

BCD  ASCII  CHARACTERS  AND 

• 

9 

CONVERTS  THEM  TO  A PAIR  OF 

• 

9 

HEX  BYTES 

• ******************************************** 

FLTHX: 

06E3 

0606 

MVI 

E,6  {SET  LOOP  COUNTER 

06E5 

E5 

PUSH 

H {SAVE 

OSES 

C5 

PUSH 

B {SAVE 

06E7 

212502 

LX  I 

H , WORK  {INITIALIZE 

OSEA 

AF 

XR  A 

A ; WORK 

FLT04 : 

06  EE 

77 

MOV 

M , A ; AREA 

06EC 

23 

I NX 

H ; TO 

91 


06ED 

05 

DCR 

B 

; ZEROS 

06EE 

C2EB06 

JNZ 

FLT04 

• 

* 

06F1 

Cl 

POP 

B 

; RESTORE 

06F2 

El 

FLT05: 

POP 

H 

{RESTORE 

06F3 

7 E 

MOV 

A ,M 

{FETCH  FIRST  CHAR 

06F4 

FE20 

CPI 

• « 

;IS  IT  A BLANK? 

06F6 

CA0F07 

JZ 

FLT10 

{YES  - IGNORE  IT 

06F9 

FEOD 

CPI 

CR 

{IS  IT  A CARRIAGE  RTN 

06FB 

CA 1 307 

JZ 

FLT20 

{YES  QUIT  SCANNING 

06FE 

E6F0 

AN  I 

OFOH 

{MASK  OFF  LOW  NIBBLE 

0700 

FE30 

CPI 

30H 

{IS  IT  IN  HEX  RANGE? 

0702 

C22807 

JNZ 

FLT30 

;N0  - IT  IS  AN  ERROR 

0705 

7E 

MOV 

A, M 

{FETCH  ThE  WORD  AGAIN 

0706 

Fe.3  A 

CPI 

3 AH 

{IS  IT  > 9 

0708 

F22807 

JP 

FLT30 

;YES  - IT  IS  AN  ERROR 

070B 

05 

DCR 

B 

{COUNT  AS  A VALID  HEX 

070C 

FA2S07 

FLT10: 

JM 

FLT30 

{ERROR  IF  > 6 NUMBERS 

070F 

23 

I NX 

H 

{STEP  MEMORY  POINTER 

0710 

C3F306 

FLT20: 

JMP 

FLT05 

{SCAN  AGAIN 

0713 

3E06 

MVI 

A, 6 

• 

9 

0715 

90 

SUB 

B 

{COMPUTE  # DIGITS 

0716 

47 

MOV 

B,A 

{STORE  IN  B 

0717 

2B 

DCX 

H 

{BACK  SPACc  POINTER 

0718 

1 12A02 

FLT25: 

LXI 

D, W0RK+5 

{POINT  TO  WORK  AREA 

07  1 B 

7E 

MOV 

A ,M 

{FETCH  NEXT  LSB 

07  1 C 

E60F 

ANI 

OFH 

{CONVERT  TO  BCD 

07 1 E 

12 

STAX 

D 

{STORE  IN  WORK  ARtA 

071  F 

IB 

DCX 

D 

{MOVE  POINTER 

0720 

2B 

DCX 

H 

{MOVE  SOURCE  POINTER 

0721 

05 

DCR 

b 

{COUNT  DOWN 

0722 

C21B07 

JNZ 

FLT25 

;D0  AGAIN 

0725 

C36706 

FLT30: 

JMP 

DECHX 

{CONVERT  TO  HEXBYTE 

0728 

113701 

LXI 

D , MS  35 

{"INVALID  INPUT  FIELD 

072B 

C3DA07 

JMP 

ER  REX 

******************************************* 
TIMER  - INTERUPTS  TO  SPECIFIED 

ROUTINE  AFTER  *N  MILLISECONDS 
ENTRY:  H,L  = STARTING  A DDR 

OF  INTERUPT  SERVICE  ROUTINE 
D,E  : TIMEOUT  IN  MS 
EXIT:  REGISTERS  REMAIN  UNCHANGED 

SERVICE  ROUTINE  IS  EXECUTED 
INTERUPT  ROUTINE  SHOULD  LOOK 
LIKE  NORMAL  SUBROUTINE 
******************************************* 
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TIMER : 


072E 

F3 

DI 

072F 

221 F02 

SHLD 

GOTO 

;STORE  JUMP  ADDRESS 

0732 

DBFC 

IN 

INTMSK 

; FETCH  INT  MASK 

0734 

E6FD 

ANI 

OFDH 

{ENABLE  TIMER  INT 

0736 

D3FC 

OUT 

INTMSK 

SET  INTERUPT  MASK 

0738 

3E12 

MVI 

A,  12H 

073  A 

D3FD 

OUT 

OFDH 

i I NIT  INT  CONTROLLER 

073C 

3E02 

MVI 

A , 02H 

073E 

D3FF 

OUT 

OFFH 

{START  TIMER 

0740 

FB 

El 

0741 

09 

RET 

TIMER  INTERUPT  SERVICE 

rsvc : 

0742 

F3 

DI 

{DISABLE  INTERUPTS 

0743 

F5 

PUSH 

PSW 

{SAVE  A 

0744 

E5 

PUSH 

H 

0745 

3E02 

MVI 

A , 02H 

0747 

D3FF 

OUT 

OFFH 

RESET  TIMER 

0749 

2A1B02 

LHLD 

TIME 

GET  TIME 

074C 

23 

I NX 

H 

UPDATE 

074D 

221B02 

SHLD 

TIME 

RESTORE 

0750 

2A1D02 

LHLD 

TIMO 

GET  TIMCUT  COUNT 

0753 

2E 

DCX 

H 

COUNT  DOWN 

0754 

221 D02 

SHLD 

TIMO 

RESTORE  IT 

0757 

7C 

MOV 

A ,H 

GET  MSB  OF  COUNT 

0758 

B5 

ORA 

L 

OR  WITH  LSE  OF  COUNT 

0759 

CA6507 

JZ 

TSVC1 

TO  INT  ROUTINE  IF  0 

TSVCO: 

0750 

El 

POP 

H 

RESTORE 

075D 

F3 

DI 

075E 

3E20 

MVI 

A , 20H 

RESTORE  INT  LEVEL 

0760 

D3FD 

OUT 

OFDH 

0762 

FI 

POP 

PSW 

RESTORE 

0763 

FB 

El 

ENABLE  INTERUPTS 

0764 

C9 

RET 

RETURN 

T5VC1  : 

0765 

2A1F02 

LHLD 

GOTO 

FETCH  JUMP  ADDRESS 

0768 

E9 

PCHL 

EXECUTE  JUMP 

******************************************* 

TIMCFF 

- TURNS  OFF  INTERUPT  SERVICE 

******************************************** 

rI  MOFF : 

0769 

F5 

PUSH 

PSW 

076A 

3E0 1 

MVI 

A ,0  IH 

076C 

D3FF 

OUT 

OFFH 

076E 

FI 

POP 

PSW 

076F 

C9 

RET 

************** ***************************** 


; * 

RDFILE 

- READ  AN 

ENTIRE  FILE  INTO 

;* 

MEMORY 

;* 

ENTRY: 

STARTING 

ADDR  OF  MEMORY  BLOCK 

;* 

IN  H,L 

;* 

ADDR  OF 

FILENAME  BLOCK  IN  D,E 

j ******************************************** 

RDFILE: 

0770 

222B02 

SHLD 

PAGER 

{STORE  POINTER 

0773 

CD5106 

CALL 

SETFCB 

0776 

CD6008 

CALL 

OPEN 

; OPEN  FILE 

0779 

AF 

XR  A 

A 

;CLEAR  ACCUM 

077A 

321A02 

STA 

EOFLG 

;CLEAR  EOF  FLAG 

RDF  10: 

077D 

2A2B02 

LHLD 

PAGER 

,-FETCH  POINTER 

0780 

EE 

XCH3 

{PUT  POINTER  IN  D,E 

0781 

CDC608 

CALL 

SET DMA 

0784 

CD7008 

CALL 

READ 

{READ  A RECORD 

0787 

CDC907 

CALL 

HAFPG 

{MOVE  PAGE  INDEX 

078A 

3A1A02 

LDA 

EOFL  G 

{FETCH  EOF  FLAG 

078  D 

B7 

ORA 

A 

;ECF  FOUND? 

07SE 

CA7D07 

JZ 

RDF  1 0 

{NO  “ READ  NEW  PAGc. 

0791 

CD6808 

CALL 

CLOSE 

{CLOSE  FILE 

0794 

C9 

RET 

{RETURN 

******************** *********************** 


; WRFILE  - WRI TE  A ELOCK  OF  MEMORY 

; ENTRY : NUMBER  OF  RECCRDS+1  TO  WRITE 

; STARTING  ADDRESS  IN  H,L 

******************************************** 

WRFILE  j 


0795 

222B02 

SHLD 

P A Gc.R 

;Sc.T  UP  PAGiR 

0798 

CD5106 

CALL 

SETFCB 

{SET  FCE 

079B 

1 18000 

LXI 

D ,80H 

079E 

CDC608 

CALL 

SETDMA 

07A  1 

CDEEOS 

CALL 

SEARCH 

{SEARCH  FOR  iXlSTING 

07A4 

3C 

I NR 

A 

{WAS  THERE  A MATCH? 

07A5 

C2AE07 

JNZ 

WRF05 

{YES  - SKIP  MAKE 

07*8 

CDAr.08 

WRF05: 

CALL 

MAKE 

{MAKE  DIRECTORY  ENTRY 

07  AB 

CD6008 

WR  F 1 0 : 

CALL 

OPEN 

{OPEN  FILE 

07AE 

2A2B02 

LHLD 

PAGER 

{FETCH  CURRENT  POINTER 

07B  1 

EB 

XCHG 

{PUT  POINTER  IN  D,E 

07B2 

CDCSOo 

WR  F 1 5 : 

CALL 

SETDM  4 

07B5 

CD8A08 

CALL 

WRITE 

; WRI TE  A RECORD 

07B8 

CDC907 

CALL 

HAFPG 

{MOVE  PAGE  I.'.DEX 

C7LB 

3A2D02 

LDA 

RCDS 

; RECORDS  TO  WRITE 

07BE 

216B00 

LXI 

n , TFCB+ 1 

c, 

> 

ck 


07CI 

££ 

CMP 

M 

07C2 

C2B507 

JNZ 

WRF15 

; NO-WRITE  NlW  RECORD 

07C5 

CD630S 

CALL 

CLOSE 

; CLOSE  THE  FILE 

07C8 

C9 

RET 

; RETURN 

**************************************  ****** 

SUBROUTINE  HAFP 

3c.  ~ ADJUSTS  DMA  ADDRc. 

HALF  PA 

3e  Or  Mc-MGRY 

j*****************************************»* 

1 

KAFP3: 

07C9 

£5 

PUSH 

H 

; SAVE 

07CA 

2A2B02 

LHLD 

PAGER 

07CD 

118000 

LXI 

D ,0 1 28 

• 

9 

07D0 

19 

DAD 

D 

; ADD  128  TO  PAGER 

07D 1 

222E02 

SHLD 

PAGER 

; RESTORE  UPDATD  PAGER 

07D4 

EB 

XCHQ 

{SWITCH  H,L  WITH  D ,E 

07D5 

CDC608 

CALL 

SET DMA 

{SET  DMA 

07D8 

£1 

POP 

H 

07D9 

09 

RET 

******************************************* 

ERREX 

- FATAL  ERRORS  EXIT  VIA  THIS 

ENTRY 

: D,E  CONTAIN  MESSAGE  ADDRESS 

EXIT: 

BOOT  TO 

DCS 

' 

******************************************* 

!RReX  : 

07DA 

CD  1 108 

CALL 

PRINT 

;?RINT  THE  MESSAGc. 

07DD 

1 13C00 

LXI 

D ,TFCB 

{TEMPORARY  FCB 

07E0 

CD6808 

CALL 

CLOSE 

{CLOSE  THE  FILE 

07E3 

030000 

JMP 

BOOT 

{BOOT  TO  DOS 

******  ****** 

~********x*:*****x*:******  ******* 

DRIVE 

?S  - I/O  SliLROUT  I N£S  COMTAIfol NG 

TTY, 

CRT,  DISK,  I/O  PORTS 

******************************************** 

' 

1 

TTY  DRIVERS 

1 

:TYI.M: 

07E6 

DBF5 

IN 

TSTAT 

;F ETCH  STAiUS 

07£S 

£602 

AN  I 

RXRDY 

;IS  RECEIVER  Rc.ADY 

07EA 

CAE607 

JZ 

TTYIN 

; NO  KEEP  LOOKING 

07£D 

DBF  4 

IN 

TDATA 

{FETCH  DATA  BYTE 

07£F 

09 

RET 

{RETURN  W/  cYTE  IN  « 

1 

'TYOUT: 

07F0 

F5 

PUSH 

PS'* 

{SAVE  DATA  cYTE 

07F 1 

DBF  5 

IN 

TSTAT 

{FETCH  STATUS 

07F3 

£601 

ANI 

TXRDY 

{TRANSMITTER  RDY? 

07F5 

CAF007 

JZ 

TTYOUT 

{NO  - WAIT  UNTIL  RDY 

07F8 

FI 

PGP 

PSW 

{BRING  BACK  DATA  cYTE 

07FS 

D3F  4 

OUT 

TDATA 

{OUTPUT  TO  TTY 

07FB 

09 

RET 

; RET UR  N 
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CRTIN: 


07FC 

DBF7 

IN 

CSTAT 

;FETCH  CRT  STATUS 

07FE 

E602 

ANI 

RXRDY 

{RECEIVER  READY  ? 

0800 

CAFC07 

JZ 

CRTIN 

; NO  - WAIT  UNTIL  RDY 

0803 

DBF  6 

CRTOUT : 

IN 

CDATA 

{FETCH  INPUT  BYTE 

0805 

F5 

CRT  1 : 

PUSH 

PSW 

{SAVE  DATA  BYTE 

0806 

DBF7 

IN 

CSTAT 

{FETCH  CRT  STATUS 

0808 

E60I 

ANI 

TXRDY 

{TXMITTER  READY  ? 

080A 

CA0608 

JZ 

CRT  l 

;N0  - WAIT  UNTIL  RDY 

080D 

FI 

POP 

PSW 

{BRING  EACK  DATA 

080E 

D3F  6 

OUT 

CDATA 

{OUTPUT  DATA 

0810 

09 

PRINT: 

RET 

{RETURN 

0811 

0E09 

PIVI 

C » 9 

{SET  UP  FOR  bDOS  CALL 

0813 

C30500 

PNIB: 

JMP 

ENTRY 

{JUMP  TO  BDOS 

0816 

E60F 

ANI 

OFH 

{MASK  LOW  4 BITS 

0818 

FEOA 

CPI 

10 

081 A 

D22208 

JNC 

P10 

08  ID 

0630 

ADI 

’O' 

081  F 

C30508 

P 10: 

JMP 

CRTOUT 

0822 

0637 

ADI 

•A’  - 

10 

0824 

C30508 

PH  EX: 

JMP 

CRTOUT 

0827 

F5 

PUSH 

PSW 

0828 

OF 

RRC 

0829 

OF 

RRC 

082A 

OF 

RRC 

082B 

OF 

RRC 

0820 

CD  1 608 

CALL 

PNIB 

082F 

FI 

POP 

PSW 

0830 

CD  1 608 

CALL 

PNIB 

0833 

09 

PRHL: 

RET 

0834 

E5 

PUSH  H 

0835 

70 

MOV 

A ,H 

0836 

CD2708 

CALL 

PHEX 

0839 

El 

POP 

H 

083A 

E5 

PUSH 

H 

033E 

7D 

MOV 

A ,L 

0830 

CD2708 

CALL 

PHEX 

083F 

El 

POP 

H 

0840 

09 

CRLF : 

RET 

0841 

3E0D 

M VI 

A ,ODH 

{CARRIAGE  RETURN 

0843 

CD0508 

CALL 

CRTOUT 

0846 

3E0A 

MVI 

A,OAH 

{LINE  FEED 

0848 

C30508 

JMP 

CRTOUT 

L 
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I NT I A L 


08  4E 

OEOD 

MVI 

0,13 

0S4D 

C30500 

LOGA : 

JMP 

ENTRY 

0850 

l 10000 

LXI 

D ,00H 

0853 

OEOE 

MVI 

0,14 

0855 

C30500 

LOSE: 

JMP 

ENTRY 

0858 

1 10100 

LXI 

D , 0 1 H 

085& 

OEOE 

MVI 

0,14 

085D 

C30500 

OPEN: 

JMP 

ENTRY 

0860 

1 15000 

LXI 

D ,05CH 

0863 

OEOF 

MVI 

0,15 

0865 

C30500 

CLOSE: 

JMP 

ENTRY 

0868 

1 15C00 

LXI 

D , 05CH 

086b 

0E10 

MVI 

0,16 

086D 

C30500 

READ: 

JMP 

ENTRY 

0870 

1 1 5000 

LXI 

D ,05CH 

0873 

OE  1 4 

MVI 

C ,20 

0875 

CD0500 

CALL 

ENTRY 

0878 

B7 

ORA 

A 

0879 

08 

RZ 

087A 

3D 

DOR 

A 

087b 

028408 

JNZ 

RDOIO 

087E 

3E0F 

MVI 

A ,OFH 

0880 

321A02 

STA 

EOFLG 

0883 

09 

RDOIO: 

RET 

0884 

110301 

LXI 

D,MS3i 

0887 

C3DA07 

WRITE: 

JMP 

ERREX 

0S8A 

l 15C00 

LXI 

D ,05CH 

088D 

OE  1 5 

MVI 

0,21 

088F 

CD0500 

CALL 

ENTRY 

0892 

b 7 

ORA 

A 

0893 

08 

RZ 

0894 

3D 

DOR 

A 

0895 

C29E08 

JNZ 

WR010 

08  98 

1 10F01 

LXI 

D ,MS  32 

089B 

C3DA07 

wrcio: 

JMP 

ERREX 

089“ 

3D 

DOR 

A 

089F 

C2A808 

JNZ 

WR020 

08A2 

1 1 1C01 

LXI 

D ,MS  33 

08A5 

C3DA07 

WR020 : 

JMP 

ERREX 

08  AS 

1 1 270 1 

LXI 

D ,MS  34 

08  AB 

C3DA07 

JMP 

ERREX 

{RETURN  IF  NO  ERRORS 
{IS  IT  AN  C.OF? 

; NO  -UNWRITTEN  DATA 
{SlT  EOF  FLA3 


; ’READ  ERROR  ’ 


{RETURN  IF  NO  ERRORS 


; ’WRITE  ERROR’ 


{’DISK  FULL* 


; ’DIRECTORY  FULL  * 
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MAKE 


08AE 

1 15C00 

LXI 

D,05CH 

08B1 

0E16 

MVI 

C ,22 

08B3 

CD0500 

CALL 

ENTRY 

08&6 

3C 

I NR 

A 

08&7 

CO 

RNZ 

08&8 

112701 

LXI 

D,MSG4  ; 'DIRECTORY  FULL' 

08B3 

C3DA07 

SEARCH: 

JMP 

ERR  EX 

08BE 

1 15C00 

LXI 

D , 05CH 

08C1 

0E1  1 

MVI 

C , 1 7 

08C3 

C30500 

SETDMA : 

JMP 

ENTRY 

08C6 

OE  1 A 

MVI 

C ,26 

08C8 

C30500 

JMP 

ENTRY 

**************************** **************** 

• 

9 

SETVLV 

- ALLOWS  USER  TO  SET  UP  PROPER 

• 

9 

SCANIVALVE  POSITION  BEFCRE  CONTINUING 

• ********************************** ********* 

OSCE 

494E50555  4MESS : 

SETVLV : 

DE 

'INPUT  FREQUENCY  TYPE  RETURN 

08E8 

CD4108 

CALL 

CRLF 

08EB 

1 1 CEOS 

LXI 

D ,MESS 

08EE 

CD1  108 

CALL 

PRINT 

08F1 

CDFC07 

CALL 

CRTIN 

06F4 

E60F 

ANI 

OFH 

08F6 

322702 

STA 

WCRK+2 

08F9 

CDFC07 

CALL 

CRTIN 

08FC 

E60F 

ANI 

OFH 

08FE 

322802 

STA 

WORK+3 

0901 

CDFC07 

CALL 

CRTIN 

0904 

E60F 

ANI 

OFH 

0906 

3229C2 

STA 

WORK+4 

0909 

CDFC07 

CALL 

CRTIN 

090C 

E60F 

ANI 

OFH 

090E 

322A02 

STA 

WORK+5 

0911 

CDFC07 

CALL 

CRTIN 

0914 

E67F 

ANI 

7FH 

0916 

FEOD 

CPI 

CR 

0918 

C2E808 

JNZ 

SETVLV 

09 1 B 

AF 

XRA 

A 

09 1 C 

322502 

STA 

WORK 

091  F 

322602 

STA 

WORK+l 

0922 

CD6706 

CALL 

DECHX 

0925 

7D 

MOV 

A ,L 

0926 

320820 

STA 

SCNRT  + 2 

0929 

7C 

MOV 

A ,H 

092A 

320920 

STA 

SCNRT+3 

092D 

C9 

RET 

092E 

END  100H 
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** 


y 

• 

♦ 

• 

t 

; ** 

• 

f 

• 

♦ 

EQUATES 

3ENER AL 

FOR  CONVERT  MODULE 

I/O  ASSIGNMENTS 

OOF  4 

- 

T DATA 

EQU 

OF  4H 

;TTY  DATA 

OOF5 

r 

TSTAT 

EQU 

0F5H 

;TTY  STATUS 

OOF5 

z 

TCMD 

EQU 

0F5H 

; TTY  CONTROL 

00F6 

z 

CDATA 

EQU 

OF  6H 

;CRT  DATA 

OOF7 

z 

CSTAT 

EQU 

0F7H 

; CRT  STATUS 

00F7 

CCMD 

• 

• 

9 

EQU 

0F7H 

GENER AL 

;CRT  CONTROL 

EQUATES 

0005 

- 

ENTRY 

EQU 

005H 

; EDOS  ENTRY  POINT 

0000 

z 

BOOT 

EQU 

OOH 

; BOOT  POINT 

005C 

z 

TFCE 

EQU 

05CH 

{DEFAULT  FCB 

0080 

z 

TEUFF 

EQU 

OSOH 

{DEFAULT  BUFFER  LCCATIN 

0001 

z 

TXRDY 

EQU 

1 

0002 

z 

RXRDY 

EQU 

2 

OOOD 

z 

CR 

EQU 

ODH 

OOOA 

LF 

; ** 

• 

9 

• 

9 

EQU 

OAH 

BUFFER 
DATA  OR 

ALLOCATION  & 

SANITATION 

** 


0100 

OR  3 

100H 

{VARIABLE  AREA 

0100 

C30004 

JMP 

BE  31  N 

0103 

524541  4420MSG1  : 

DB 

'READ 

ERROR  S' 

010F 

5752495 445MS 32: 

DE 

'WRIT 

E ERROR  i* 

01  1C 

444953  4B20MS  33: 

DB 

'DISK 

FULL  S’ 

0127 

444952 

4543MS34: 

DB 

'DIRE 

CTCRY  FULL  S’ 

0137 

44415441 20MS  31 1 : 

DE 

'DATA 

TRUNCATED  S' 

0147 

00444 15441  DATA : 

DE 

0,  'DA 

i A jUjOjOjOjOjOjOjC 

015d 

00 

E0FL3: 

DE 

0 

015C 

0000 

TIME : 

DW 

0 

015E 

0000 

TIMO: 

DW 

0 

0160 

0000 

30T0: 

DW 

0 

0162 

0000 

PCI  NT: 

DW 

0 

{BUFFER  POINTER 

0164 

0000 

SCNTR: 

DW 

0 

{SCAN  COUNTER 

0166 

OOOOOOOOOOWCRK: 

DE 

O 

o 

o 

f0*0,0  ; WORK  I N 3 «Ri.A  E 

016C 

0000 

PA3ER  : 

DW 

0 

{PAGE  COUNTER 

016E 

00 

RCDS : 

DE 

0 

{RECORDS  TO  cE  WRITTENS 

016F 

0000 

LASTM: 

DW 

00 

{LAST  WRITTEN  LOCATION 

99 


2000 

ORG 

2000H 

;START  OF  DATA  AREA 

DBUF : 

0400 

OR  3 

400H 

{START  OF  PROGRAM  mREA 

BEGIN: 

0400 

3 1 FF  1 F 

LXI 

SP , 1 FFFH  ; INITIALIZE  STS 

0403 

CD0904 

CALL 

TRANS 

0406 

C30000 

JMP 

BOOT 

* * * * * * * * * 5k  * * * * * * * * * * * * * * * * * * * * * * 34c  3ft  * * * * 34c  * * * * * * * ★ 

• 

9 

TRANS 

- READS 

IN  DATA  FILE  FROM,  uISK  o 

• 

9 

CONVERTS  BINARY  DATA  TO  ASCII  0 

• 

9 

REQUIRED  BY  BASIC  ROUTINE 

• 

9 

ENTRY: 

THIS  PROGRAM  IS  CALLED  K 

• 

9 

SUBMIT  FILE 

• 

9 

EXIT: 

CONTROL  IS  RETURNED  TOS 

• 

FILE 

j******************** ************************** 

* 

• 

9 

SET  UP 

FILE  CONTROL  BLOCK  - READS  IN  SE 

• 

* 

eter  issued  by 

SUBMIT  FILE 

J***>*;n****************;ic****>tt»t  ****************** 

TRANS: 

0409 

1 1S200 

LXI 

D , 082H 

{ADDRESS  OF  PARAMETER  L 

0400 

0604 

MVI 

5,4 

{CHARACTER  COUNTER 

0401 

215C00 

LXI 

H ,05CH 

{ADDRESS  OF  TFCB 

041  1 

3600 

MVI 

M ,0 

0413 

23 

I NX 

H 

TRAN  1 : 

0414 

1A 

LDAX 

D 

{FETCH  CHARACTER 

0415 

77 

MOV 

M . A 

{STORE  IN  FCB 

0416 

13 

I NX 

D 

{STEP  POINTER 

04  1 7 

23 

I NX 

H 

{STEP  DESTINATION  POINT 

0418 

05 

DCR 

B 

{FINISHED? 

0419 

C21404 

JNZ 

TRAN  1 

;N0  KEEP  TRANSFERRING 

04  1 C 

13 

I NX 

D 

04  1 D 

3820 

MVI 

A , 20K 

041  F 

77 

MOV 

M.A 

0420 

23 

I NX 

H 

0421 

77 

MOV 

M , A 

0422 

23 

I NX 

H 

0423 

77 

MOV 

1*1,  A 

0424 

23 

I NX 

H 

0425 

77 

MOV 

M , A 

0426 

23 

I NX 

H 

0427 

1A 

LDAX 

D 

0428 

77 

MOV 

M,A 

0429 

23 

I NX 

H 

042A 

13 

I NX 

D 

0428 

1A 

LDAX 

D 

0420 

77 

MOV 

M,A 

042D 

23 

I NX 

H 

ICO 


042E 

15 

I NX 

D 

042F 

1A 

LDAX 

D 

0450 

77 

MOV 

Mi,  A 

0451 

0618 

M VI 

B,24 

0455 

AF 

XRA 

TRAN2: 

A 

{CLEAR  A 

0454 

25 

I NX 

H 

0455 

77 

MOV 

Mi , A 

0456 

05 

DCR 

b 

0457 

C25404 

JNZ 

TRAN2 

********************************************** 
READ  IN  DATA  FILE 

********************************************** 


043  A 

C DC  40 5 

CALL 

LO  3o 

{LOGIN  DISK  b 

043  D 

210020 

LX  I 

H.DBUF 

{BUFFER  AREA 

0440 

226C01 

SHLD 

P A 3ER 

; SoT  PAGER 

0443 

CDCC05 

CALL 

OPEN 

{OPEN  FOR  HEAD 

0446 

AF 

XRA 

A 

{CLoAR  A 

0447 

525B01 

STA 

EQFL  3 

{RESET  oND  OF  FILo  FLh'G 

044A 

1 10020 

LXI 

D ,DEUF 

044D 

CD3A06 

CALL 

SETDMA 

0450 

CD6206 

CALL 

RDF  1 0 

{READ  FILE  INTO  MEMORY 

0453 

2A6C01 

LHLD 

PA  3ER 

0456 

1 17EFF 

LXI 

D ,0FF7E 

0459 

19 

DAD 

D 

045  A 

226F01 

SHLD 

LASTM, 

{SAVE  LAST  MEMORY  LOCAI 

********************************************** 


SET  UP  TRANSITION  BUFFER  IN  DEFAULT  LOB 


********************************************** 


045D 

1 18000 

LXI 

D,080H 

{ADDRESS  GF  TBUfF 

0460 

CD3A06 

CALL 

SETDMA 

{SET  DMA  ADDRESS 

0463 

215001 

LXI 

H,DATA+9 

{ADDRESS  CF 

iXl 

0466 

3641 

M VI 

M, , * A ’ 

0468 

23 

1 NX 

H 

0469 

3653 

MVI 

Mi , * S * 

046B 

23 

I NX 

H 

046C 

3643 

M;  VI 

M, , 'C  ’ 

046E 

l 1 4701 

LXI 

D , DATA 

0471 

CD3F06 

CALL 

SETFCB 

{SET  FILE  CONTROL  BLOCK 

0474 

CD1A06 

CALL 

DELET 

0477 

CD2206 

CALL 

MAKE 

047A 

CDCC05 

CALL 

OPt-N 

0470 

218000 

LXI 

H , 080H 

{ADDRESS  OF  TBUFF 

0480 

226201 

SHLD 

POINT 

{SET  BUFFER  POINTER 

TOT 

0^83 

210020 

LXI 

H ,DBUF 

{ADDRESS  OF  DBUF 

0486 

226C01 

SHLD 

PAGER 

0489 

CDEA04 

CALL 

GTONE 

043C 

CDEA04 

CALL 

GTONE 

048F 

CDEA04 

CALL 

GTONE 

04S2 

CDEA04 

CALL 

GTONE 

101 


f 


0495 

0498 

2A6F01 

EB 

CONVT: 

LHLD 

XCHG 

LASTM 

0499 

CDCE04 

CALL 

GTTWO 

049C 

049F 

2A6F01 

EB 

LHLD 

XCH3 

LASTM 

04A0 

2A6C01 

LHLD 

PAGER 

04A3 

7B 

MOV 

A.E 

04A4 

95 

SUB 

L 

04A5 

7A 

MOV 

A , D 

04A6 

9C 

SEB 

H 

04A7 

029904 

JNC 

CONVT 

04AA 

2A6201 

LHLD 

POINT 

04AD 

3E30 

COMO: 

MVI 

A,  'O’ 

04AF 

CDF504 

CALL 

STUFF 

04B2 

2C 

I NR 

L 

04B3 

C2AF04 

JNZ 

COMO 

04B  6 
04c  9 

CDD405 

C9 

CALL  CLOSE 

RET 

• ************************** ****** ** ************ 
; 3T0NE  - TAKES  ONE  BYTE  FROM  DATA  BUFFER 

; CONVERTS  TO  ASCII  IN  TBUF 

; TBUF  IS  EMPTIED  WHEN  FULL 

• ********************************************** 
3T0NE : 

04BA 

2A6C01 

LHLD 

PAGER 

04E  D 

7E 

MOV 

A,M 

04BE 

23 

I NX 

h 

04BF 

226C01 

SHLD 

PAGER 

04C2 

6 F 

MOV 

L , A {MOVE  TO  L 

04C3 

2600 

MVI 

H,0  {CLEAR  H 

04C5 

CD0D05 

CALL 

ED5  {CONVERT  TO  ASCII 

04C8 

3E2C 

MVI 

A,’,’  {INSERT  COMMA 

04CA 

C0F504 

CALL 

STUFF 

04CD 

C9 

RET  {RETURN 

5********************************************** 

; 3TTW0  - TAKES  TWO  BYTES  OF  BINARY  uaTAA 

; CONVERTS  THEM  TO  ASCII  IN  TBUF 

; TEUF  IS  DUMPED  WHEN  FULL; 

*********************************************** 
3TTW0 : 

04CE 

2A6C01 

LHLD 

PAGER 

0401 

5E 

MOV 

E , M {GET  LSE 

0402 

23 

I NX 

H {STEP  POINTER 

0403 

56 

MOV 

D , M {GET  MSB 

0404 

23 

I NX 

H {MOVE  POINTER 

04D5 

0408 

226C01 

EB 

SHLD 

XCHG 

PAGER  {STORE  IN  PAGER 

0409 

AF 

XRA 

A {CLEAR  A 

040A 

B4 

ORA 

H {IS  IT  NEGATIVE? 

102 


04DB 

F2EC0A 

JP 

04DE 

2B 

DCX 

OADF 

7C 

MOV 

0 AEO 

EEFF 

XRI 

0AE2 

67 

MOV 

04E3 

7D 

MOV 

0AE4 

EEFF 

XRI 

oaes 

6F 

MOV 

0AE7 

3E2D 

MVI 

04E9 

CDF50A 

CALL 

GTTIO: 

OAEC 

CD0D05 

CALL 

OAEF 

3E2C 

MVI 

0AF1 

CDF504 

CALL 

oafa 

cs 

RET 

3TT10 

; NO  - DO  NOT  INSE 

H 

; DECREMENT 

A ,H 

; GET  MSB 

OFFH 

{COMPLEMENT 

H,A 

• 

9 

A ,L 

; GET  LSB 

OFFH 

{COMPLEMENT 

L , A 

{Rt-STORE  LSB 

A » ' ” * 

{MINUS  SIGN 

STUFF 

{INSERT 

BD5 

A ’ ’ 

H 9 9 

STUFF 

{CONVERT  TO  ASCII 

{ ********************************************** 
; STUFF  - TAKES  CHARACTER  PRESENT  IN  A 

; INSERTS  INTO  TBUFF  AT  LOCATION 

; POINTED  TO  BY  POINT 

; WHEN  POINT  = 1QOH,  BUFFER  IS  Dt 

• ********************************************** 
STUFF: 


04F5 

E5 

PUSH 

04F6 

D5 

PUSH 

04F7 

C5 

PUSH 

04F8 

2A6201 

LHLD 

04FB 

77 

MOV 

0 AFC 

2C 

I NR 

04FD 

C20605 

JNZ 

0500 

CDF605 

CALL 

0503 

218000 

LXI 

STUIO: 

0506 

226201 

SHLD 

0509 

Cl 

POP 

050A 

D 1 

POP 

050E 

El 

POP 

050C 

C9 

RET 

H 

D 

B 

POINT 

M,A  ;STORE  IN  BUFFER 

L 

STUIO 

WRITE 

H,80H 

POINT 

B 

D 

H 


*********************************************** 


* BINDEC  - CONVERTS  ONE  OR  TWO  BYTES  OF 

* El  NARY  DATA  TO  5 OR  3 ASCII  DE 

* CHARACTERS 

* ENTRY:  STORAGE  ADDRESS  IN  D ,£ 

* VALUE  IN  H,L 
*********************************************** 


BD5: 


050D 

AF 

XR  A 

A 

050E 

326601 

STA 

WORK 

0511 

01 FODS 

LXI 

B ,ODoFOH 

051  A 

CD3005 

CALL 

BDA 

EDA: 
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0517  01  18FC 
05 1 A CD3005 


LXI 

CALL 


B,0FC18H 

EDA 


BD3 : 


05  1 D 

019CFF 

LXI 

B.0FF9CH 

0520 

CD3005 

BD2: 

CALL 

BDA 

0523 

01F6FF 

LXI 

B,0FFF6H 

0526 

CD3005 

BD1 : 

CALL 

BDA 

0529 

7D 

MOV 

A ,L 

052A 

F630 

OR  I 

30H 

052C 

CDF504 

CALL 

STUFF 

052F 

C9 

BDA: 

RET 

0530 

AF 

BOB: 

XRA 

A 

; CLEAR  A 

0531 

5D 

MOV 

E » L 

0532 

54 

MOV 

D,H 

0533 

3C 

I NR 

A 

053  A 

09 

DAD 

B 

0535 

DA3105 

JC 

EDB 

0538 

3D 

DCR 

A 

0539 

6b 

MOV 

L ,E 

053A 

62 

MOV 

H,D 

053B 

47 

MOV 

B , A 

; S AVE  IN  b 

053C 

FEOO 

CPI 

0 

; IS  IT  A ZERO? 

053E 

C24705 

JNZ 

BDC 

; NO  - STUFF  IT 

0541 

3 A 660 1 

LDA 

WORK 

;FETCH  FLA3 

0544 

E7 

ORA 

A 

; IS  IT  SET? 

0545 

C8 

RZ 

; NO  - RETURN  WilTHOU 

0546 

78 

EDC : 

MOV 

A ,B 

0547 

F630 

OR  I 

30H 

0549 

CDF504 

CALL 

STUFF 

054C 

3EFF 

MVI 

A,OFFH 

054E 

326601 

STA 

WORK 

;SET  FLA3 

0551 

C9 

; ** 

RET 

• 

9 

DRIVERS 

- I/O 

SUBROUTINES  COnTAInIN 

• 

9 

TTY, 

CRT,  DISK,  I/O  PORTS 

; ** 

? 

• 

t 

TTY  DRIVERS 

TTYIN: 

0552 

DBF5 

IN 

TSTAT 

; FETCH  STATUS 

0554 

E602 

ANI 

RXRDY 

; IS  RECEIVER  READY 

0556 

CA5205 

JZ 

TTY  IN 

; NO  KEEP  L00KIN3 

0559 

DBF  4 

IN 

TDATA 

;FETCH  DATA  BYTE 

055B 

C9 

RET 

; RETURN  WITH  BYTE  I 

10L 


TTYOUT 


055C 

F5 

PUSH 

PSW 

;SAVE  DATA  BYTE 

055D 

DBF5 

IN 

TSTAT 

{FETCH  STATUS 

055F 

E60 1 

ANI 

TXRDY 

{TRANSMITTER  READY  FORB 

0561 

CA5C05 

JZ 

TTYOUT 

;N0  - WAIT  UNTIL  REhDY 

0564 

FI 

POP 

PSW 

{BRING  BACK  DATA  cYTE 

0565 

D3F  4 

OUT 

TDATA 

{OUTPUT  TO  TTY 

0567 

C9 

CRTIN: 

RET 

{RETURN 

0568 

DBF7 

IN 

CSTAT 

{FETCH  CRT  STATUS 

056A 

E602 

ANI 

RXRDY 

{RECEIVER  REhDY  WITH  BT 

056C 

CA6805 

JZ 

CRTIN 

{NO  - WAIT  UNTIL  READY 

056F 

DBF6 

CRTOUT: 

IN 

CDATA 

{FETCH  INPUT  BYTE 

0571 

F5 

CRT  1 : 

PUSH 

PSW 

{SAVE  DATA  BYTE 

0572 

DEF7 

IN 

CSTAT 

{FETCH  CRT  STATUS 

0574 

E60  1 

ANI 

TXRDY 

{TXC'iITTER  READY  FOR  BYE 

0576 

CA7205 

JZ 

CRT  1 

{NO  - WAIT  UNTIL  READY 

0579 

FI 

POP 

PSW 

{BRING  BACK  DATA 

057A 

D3F6 

OUT 

CDATA 

{OUTPUT  DATA 

057C 

09 

PRINT: 

RET 

{RETURN 

057D 

0E09 

XVI 

C,9 

{SET  UP  FOR  BDOS  CALL 

057F 

C30500 

PNIL : 

JMP 

ENTRY 

{JUMP  TO  BDOS 

0582 

E60F 

ANI 

OFH 

{MASK  LOW  4 BITS 

0584 

FEOA 

CPI 

10 

0586 

D28E05 

JNC 

P 10 

0589 

C630 

ADI 

’O’ 

058E 

C37105 

P 10: 

JMP 

CRTOUT 

058L 

C63  7 

ADI 

’A’  - 10 

0590 

C37105 

PHEX: 

JMP 

CRTOUT 

0593 

F5 

PUSH 

PSW 

0594 

OF 

RRC 

0595 

OF 

RRC 

0596 

OF 

RRC 

0597 

OF 

RRC 

0598 

CD8205 

CALL 

P N I B 

059c 

FI 

POP 

PSW 

059C 

CD8205 

CALL 

PNIB 

059F 

C9 

PRHL : 

RET 

05  AO 

E5 

PUSH  H 

05  A 1 

7C 

MOV 

A ,H 

05A2 

CD9305 

CALL 

PHEX 

05A5 

El 

POP 

H 

05A6 

E5 

PUSH 

H 

05A7 

7D 

MOV 

A,L 

05A8 

CD9305 

CALL 

PHEX 

105 


05  AB 

El 

POP 

H 

05  AC 

09 

CRLF : 

RET 

05  AD 

3E0D 

MVI 

A ,ODH 

05AF 

CD7105 

CALL 

CRTOUT 

05B  2 

3E0A 

MVI 

A ,OAH 

05B  4 

C37105 

INTIAL: 

JMP 

CRTOUT 

05B  7 

OEOD 

MVI 

C ,13 

05B9 

C30500 

L03A : 

JMP 

ENTRY 

05BC 

1 10000 

LXI 

D,OOK 

05BF 

OEOE 

MVI 

C , 1 4 

05C  1 

C30500 

L0  3E : 

JMP 

ENTRY 

05C4 

1 10100 

LXI 

D , 0 1H 

05C  7 

OEOE 

MVI 

C , 1 4 

05C9 

C30500 

OPEN: 

JMP 

ENTRY 

05CC 

t 1 5000 

LXI 

D.05CH 

05CF 

OEOF 

MVI 

C , 1 5 

05D  1 

C30500 

CLOSE: 

JMP 

ENTRY 

05D4 

1 15C00 

LXI 

D.05CH 

05D7 

OE  10 

MVI 

C , 16 

05D9 

C30500 

READ: 

JMP 

ENTRY 

05DC 

1 15C00 

LXI 

D ,05CH 

05DF 

OE  1 4 

MVI 

C ,20 

05E 1 

CD0500 

CALL 

ENTRY 

05i4 

B 7 

ORA 

A 

05E5 

CS 

RZ 

05E6 

3D 

DCR 

A 

05E7 

C2F005 

JNZ 

RD010 

05EA 

3E0F 

MVI 

A ,0FH 

05EC 

325B01 

STA 

E0FL3 

05EF 

C9 

RD010: 

RET 

05F0 

1 10301 

LXI 

D ,MS  3 1 

05F3 

C3BF06 

WRITE : 

JMP 

ERR  EX 

05F6 

1 15C00 

LXI 

D , 05CH 

05F9 

OE  1 5 

MVI 

C ,2 1 

05FB 

CD0500 

CALL 

ENTRY 

05FE 

B7 

ORA 

A 

05FF 

CS 

RZ 

0600 

3D 

DCR 

A 

0601 

C20A06 

JNZ 

WR010 

0604 

1 10F01 

LXI 

D ,MS 32 

0607 

C3BF06 

JMP 

ERREX 

UR  010: 


;CARRIA3E  RETURN 
;LINE  FEED 


RETURN  IF  NO  READ  ERRB 
IS  IT  AN  EOF? 

NO  MUST  Bi.  UNUR ITTtN  D 
SET  EOF  FLA3 


106 


DISK  FULL 


r 


060A 

3D 

DCR 

A 

060B 

C21406 

JNZ 

LR020 

060E 

1 l IC01 

LXl 

D ,MS  33 

; ’DISK  FULL’ 

061  1 

C3BF06 

JMP 

ERR  LX 

WR020: 

0614 

112701 

LXl 

D,MS34 

; 'DIRECTORY  FULL* 

0617 

C36F06 

JMP 

ERREX 

DELET: 

061  A 

0£  1 3 

MVI 

C,  19 

0610 

1 15C0C 

LXl 

D,05CH 

061  F 

C30500 

JMP 

ENTRY 

MAKE: 

0622 

1 15C00 

LXl 

D , 05CH 

0625 

OE  1 6 

MVI 

C ,22 

0627 

CD0500 

CALL 

ENTRY 

062A 

3C 

IMR 

A 

062E 

CO 

RNZ 

062C 

1 12701 

LXl 

D , MS  3 4 

; ’DIRECTORY  FULL’ 

062F 

C3EF06 

JMP 

ERREX 

SEARCH: 

0632 

1 1 5C00 

LXl 

D.05CH 

0635 

OE  1 1 

MVI 

C , 1 7 

0637 

C30500 

JMP 

ENTRY 

SETDMA : 

063  A 

OE  1 A 

MVI 

C ,26 

063C 

C30500 

JMP 

ENTRY 

SETFCB 

- MOVES 

A.»  INITIALIZATION  BLOCK I 

TFCE  AREA 

ENTRY: 

D,E  = FI L NAME  BLOCK 

C 

jETFCE : 

063F 

E5 

PUSH 

n 

; SAVE 

0640 

215C00 

LXl 

H ,05CH 

; DEFAULT  FILE  CONTROL  L 

0643 

C5 

PUSH 

B 

; S AVE 

0644 

0613 

MVI 

£,19 

;3iT  C 0 U N T E R 

SETF1 : 

0646 

1 A 

LDAX 

D 

; FETCH  BYTE  TO  EE  TRhNE 

0647 

77 

MOV 

M ,A 

{STORE  IN  TFCE  AREA 

0648 

23 

I NX 

H 

; I NCREME  .nT  h 

064S 

1 3 

I NX 

D 

{INCREMENT  D 

064A 

05 

DCR 

L 

{FINISHED? 

064E 

C24606 

JMZ 

SETF1 

; NO  - 30  FOR  ANOTHER  i 

064E 

AF 

XRA 

A 

{ C L £.  A R A C C U M 

064F 

327C00 

ST  A 

TFCB+32 

0652 

Cl 

POP 

E 

0653 

E 1 

PC? 

h 

0654 

C9 

RET 

; * RDFILE  - READ  AN  ENTIRE  FILS  INTO  CG^TS 


107 


i 


;*  MEMORY 

;*  ENTRY:  STARTI No  ADDRESS  OF  MEMB 

; * Ilv  H,L 

;*  ADDRESS  OF  FILENAME  ELO 

• ********************************************** 

RDFILE: 


0655 

226C01 

SHLD 

PAGER 

{STORE  CURRENT  POINTER 

0658 

CD5F06 

CALL 

SETFCb 

065b 

CDCC05 

CALL 

OPEN 

{OPEN  FILE 

065E 

AF 

XRA 

A 

{CLEAR  ACCUM 

065F 

5 2 5b  0 1 

RDF  10: 

STA 

EOFLG 

{CLEAR  EOF  FLAG 

0662 

2A6C01 

LHLD 

PAGER 

{FETCH  CURRENT  POINTER 

0665 

EE 

XCH3 

{PUT  POINTER  IN  D ,E 

0666 

CD5A06 

CALL 

SETDMA 

0669 

CDDC05 

CALL 

READ 

{READ  A RECORD 

0660 

CDAE06 

CALL 

HAFP  3 

{MOVE  PAGE  INDEX 

066F 

5A5E01 

LDA 

EOFLG 

{FETCH  EOF  FLAG 

0672 

E7 

ORA 

A 

{EOF  FOUND? 

0675 

CA6206 

JZ 

RDF  1 0 

;N0  - READ  ANOTHER  PAGE 

0676 

CDD405 

CALL 

CLOSE 

{CLOSE  FILE 

067S 

C9 

RET 

{RETURN 

*********************************************** 

• 

9 

WRFILE 

- WRITE 

A BLOCK  OF  MEMORY  IN  A I 

• 

9 

• 

9 

ENTRY: 

NUMBER  OF  RECCRDS+l  TOW 
STARTING  ADDRESS  IN  H,L 

j ********************************************** 

WRFILE: 

067  A 

226001 

SHLD 

PAGER 

{SET  UP  PAGER 

067D 

CD5F06 

CALL 

SETFCE 

{SET  FCb 

0680 

1 18000 

LXI 

D ,80H 

0685 

CD5A06 

CALL 

SETDMA 

06S  6 

CD5206 

CALL 

SEARCH 

{SEARCH  FOR  EXISTING  FL 

0689 

50 

I NR 

A 

{WAS  ThiRi  A MATCH? 

068A 

C2S006 

JNZ 

WR  FO  5 

;YES  - SKIP  MAKE  FUNCTD 

068  D 

CD2206 

WRF05: 

CALL 

MAKE 

{MAKE  DIRECTORY  cotTRY 

0690 

CDCC05 

WRF10: 

CALL 

OPEN 

{OPEN  FILE 

0695 

2A6C01 

LHLD 

PA  GER 

{FETCH  CURRENT  POINTER 

0696 

E o 

XCH3 

{PUT  POINTER  IN  D,E 

0697 

CD5A06 

WRF  1 5 : 

CALL 

SETDMA 

069A 

CDF605 

CALL 

WRITE 

{WRITE  A RlCQRD 

069D 

CDAE06 

CALL 

HAFP  G 

;move  page  index 

06A0 

3A6E01 

LDA 

RODS 

{FETCH  NUMBER  CF  RECORS 

06A5 

216E00 

LXI 

H.TFCE+l 5 

06A6 

EE 

CMP 

M 

06A7 

C29A06 

JNZ 

WRF  15 

;N0  - WRITE  ANOTHER  REO 

06  AA 

CDDA05 

CALL 

CLOSE 

{CLOSE  THE  FILE 

06  AD 

09 

R£T 

; RETURN 

• ********************************  **#**3*:*  ******* 

• 

f 

SUBROUTINE  HAFP 

GE  - ADJUSTS  DXA  ADDRESS 

• 

* 

HALF  PA 

GE  OF  MEMORY 

J ********************  *******************  ******* 

HAFPG: 

06AE 

£5 

PUSH 

H 

; SAVE 

06AF 

2A6C01 

LHLD 

PAGc.R 

06B2 

1 18000 

LXI 

D,0128 

• 

9 

06B5 

19 

DAD 

D 

; ADD  128  TO  PAGtR 

06B6 

226001 

SHLD 

PAGER 

; RESTORE  UPDATED  PAGER 

06B9 

£B 

XCHG 

-.SWITCH  H.L  WITH  D.E 

06BA 

CD3A06 

CALL 

SETDMA 

; SET  DMA 

06BD 

£1 

POP 

H 

06B£ 

09 

; ** 

RET 

• 

9 

ERREX 

- FATAL  ERRORS  EXIT  VIA  THIS  RCL'I 

• 

9 

ENTRY: 

D.E  CONTAIN  MESSAGE  ADDE 

• 

9 

EXIT: 

BOOT  TO  DOS 

; ** 

ERREX : 

06BF 

CD7D05 

CALL 

PRINT 

{PRINT  THE  MESSAGE 

0602 

l 1 5000 

LXI 

D ,TFCB 

{TEMPORARY  FOB 

0605 

CDD405 

CALL 

CLOSE 

{CLOSE  THE  FILE 

0608 

C30000 

JM? 

BOOT 

{BOOT  TO  DOS 

06CB 

END 

100H 
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REM********************************************************* 

REM  REDUCE  - EXTRACTS  FOURIER  COEFFICIENTS 

REM  OF  ODD  HARMONICS  FROM  GIVEN  DATA  FILE 

REM* ********************* *********************************** 

DELTA. T = S5E-6 

PI  = 3.141592654 

CO NTR  $="E : CONTROL" 

DATUM. PTS$="B : DATA. ASC" 

OUTPUT$="B : OUTPUT" 

TABS  = ” " 

FILE  DATUM. PTSS 
IF  END  » 1 THEN  200 

READ  it  1;  ICHNL,FCHNL,SV0,SV1  , SCANS  , SCAN. PERIOD, RECORD. FREQ 

SCAN. PERIOD  = SCAN. PERIOD  * .97S5625E-3 

PRINT  "INITIAL  ANALOG  CHANNEL"  ,ICHNL 

PRINT  "FINAL  ANALOG  CHANNEL"  ,FCHNL 

PRINT 

PRINT  "SCANIVALVE  ZERO  SETTING",SVO 
PRINT  "SCANIVALVE  ONE  SETTING  ",SV1 
PRINT 

PRINT  "NUMEER  OF  SCANS  ”,  SCANS 

PRINT  "SCAN  PERIOD", SCAN. PERIOD;"  SECONDS" 

PRINT  "SCAN  RATE",  1/SCAN. PERIOD;"  HZ" 

RECORD .FR  EG  = Re.  CORD .FREQ/ 1 0 

PRINT  "RECORDED  REFERENCE  FREQUENCY  ", RECORD . FREQ 
R EM* **** *** *************** ******************************* 

REM  READ  IN  ASCII  DATA  FILE 

REM* **************** ************************************* 

DIM  DAT (FCHNL+ 1 , SCANS) ,PHASE(FCHNL+ 1 ) ,A(FCHNL+1) ,B(FCHNL+l) 

READ  it  1;  DUMMY, DUMMY, DUMMY 

PRINT 

FOR  1=  1 TO  SCANS 
READ  # 1 ; TIME 
FOR  J= ICHNL  TO  FCHNL 
READ  *1;DAT(J,I) 

NEXT  J 
NEXT  I 

*******************************  ********************** 

REM  COMPUTE  LAST  DATA  SAMPLE  NUMEER  TO  BE  USED 

REM* ********* ******** ************************************ 

OMEGA  = 2*PI *RECOR  D . FREQ 

DRIVE. PERIOD  = 1 /RECORD. FREQ 

N : I NT ((DRIVE. PERIOD /SCAN. PERIGD)\ 

*1  NT ((SCANS*SC AN. PERIOD) /DRIVE. PERIOD) ) 

PRINT  "NUMBER  OF  DATA  POINTS  USED  " ; N , "AVAILABLE  "{SCANS 
R£M* ***************************************** ************ 

REM  COMPUTE  FOURIER  COEFFICIENTS 

Re.  M*************  ***************************************** 

HI  HARMONIC  = I NT (DR  I VE .PERI  CD/SCAN .PERI OD/2) 

IF  HIHARMONI C > 5 THEN  HIHARMONIC  = 5 

PRINT  "HIGHEST  HARMONIC  EXTRACTED  "{HIHARMONIC 


no 


1 


FOR  INDEX  : 0 TO  HIHARMONIC 

FOR  J: ICHNL  TO  FCHNL 

A(J):0 

B(J):0 

NEXT  J 

FOR  I : 1 TO  N 
FOR  J: ICHNL  TO  FCHNL 

XI:  I NDEX*OMEGA*( ( I - 1 ) *SCAN .PERI OD+DELTA  .T*J ) 

B(J):B(J)+DAT(J,I)*SINCX1> 

A(J):A(J)+DAT(J,I)*COS(Xl) 

NEXT  J 
NEXT  I 

REM************************************5*1***************** 
REM  OUTPUT 

REM************************************* ********** ******* 
PRINT  "FOURIER  COEFFICIENTS  FOR  HARMONIC  ", INDEX 
PRINT”CHANNEL", "COS”, "SIN",  "PHASE  ”,"MAG” 

FOR  J: ICHNL  TO  FCHNL 
PHASECJ):ATN(B(J)/A(J) ) 

IF  A( J ) <0  AND  B < J ) >0  THEN  PHASE (J ) :PHASE (J ) +PI 
IF  A( J) <0  AND  B ( J ) <0  THEN  PHASE (J ): (PHASE (J ) -P I ) 

IF  INDEX  : 0 THEN  ACJ)  : A(J)/2 

MA3:  SGR( (ABSCACJ) ) ) t2+( ABS (& (J ))) T2) /2 .048/1 

IF  INDEX  : 1 AND  J : 0 THEN  FASE  : PHASE(O) 

PHASE(J):PHASE(J)-FASE 

IF  PHASE (J ) <-P I THEN  PHASE (J ) :PHASE (J )+2*PI 

IF  PHASEC J) >PI  THEN  PHASE ( J ) :PHASE ( J ) -2*PI 

PRINT  J ,A( J) /2. 048/1 ,E (J ) /2 .048/1 , 1 80*PHASE ( J ) /? I ,MAG 

NEXT  J 

PRINT 

NEXT  INDEX 
200  STOP 
END 
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CALL  MONK  12,0) 
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IF  RECEIVING 
IF  SUSPENDED  PECFiVE 
IF  FRANSMIFTING 


IF  SUSPENDED  TRANSMIT 
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/*  bllFFER  CHARACTER  FROM  TTY  TO  CRT  */ 
T T Y BUFF ( TTYBPL)  = CHAR; 

CALL  INT0PLJ 
END  BUFFTTY; 
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OUMPMErf:  PROCEDURE; 

/*  DUMP  MEMORY  BUFFER  */ 
DECLARE  I ADDRESS; 
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CALL  CRTPR(  . • DISK.  Rt AD  E RROR $ • ) 
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RESPOND  = TRUE;  CALL  RECEIVE; 

END;  ELSE 

HAR  = CTLJ  THEN 

00;  IF  DCOPY  = THEN  OCOPY  = ELSE 
CALL  CRTPRI.'NO  INPUT  $•); 
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APPENDIX  D 


1 


SAMPLE  OUTPUT 


INITIAL  ANALOG  CHANNEL  0 

FINAL  ANALOG  CHANNEL  4 

COORDINATION  NUKEER  1 

NUMBER  OF  SCANS  400 


SCAN  HER  I CD  2.92S620E-G3  SECONDS 
SCAN  RATE  341.5533  HZ. 


RECORDS 

D REFERENCE  FREuU 

2NCY 

10.1 

NUi'.EER 

OF  DATA  POINTS  US 

ED  571 

ttVAlLAELr. 

FOUrtI ER 

COEFFICIENTS  FOR 

RAttl*  C pi  I C 0 

CHAN  NwL 

CCS 

SIN 

? . i n 3 1 

i . n O 

0 

2 .493$ 1 

0 

0 

2.4S3S00 

1 

2.434044 

0 

2 . 45  Oo  45 

2 

2.32SL57 

0 

0 

2 . 0 2 So  3 2 

3 

2.211 704 

0 

0 

2.21 1705 

4 

2.31671 1 

0 

0 

2.51S715 

FOURIER 

COEFFICIENTS  FCS 

HARMONIC  1 

CHANNEL 

COS 

SI  N 

?H  A3Z 

HhJ 

0 

-654.6570 

-S 16.6666 

0 

1046.66 

1 

— 6 5 o . 'b  6 o 2 

-017.2451 

3.260612^-02 

1046.629 

2 

-655.52S1 

-0-17. 660  6 

2.171 to  Sc-G2 

1046.746 

3 

-652.9547 

-0 1 b .0521 

.i 1^2551 

10^6.600 

4 

-652.55SS 

-010. 2410 

. 1 42S20 

1046.59 

FOUR  I ER 

COEFFICIENTS  FCR 

HARMONIC  2 

CHAN MEL 

CCS 

SIN 

? H A S £ 

l\  n J 

0 

1 .4001 19 

-5 .062773 

S3.2E25 

3 .56765  1 

1 

1 .30256 

— o • ^o  4 4 7 

63  *2  1 033 

5 .5545S 

n 

1.54165 

-2.5S520o 

r;  i ft . ^ z i 

> l « > J O i 

5 .56o662 

3 

1 .567927 

-2.535155 

66  ....26  1 

5 .5 2 7 652 

4 

1.511007 

-2.955277 

65 . 4^075 

2.02  *iu  1 0 

APPENDIX  E 


OPERATING  INSTRUCTIONS 

[ 

A.  ACQUISITION  PROCEDURE  INSTRUCTIONS 

1.  Interconnect  the  following  with  the  NDS-800  using  the 
appropriate  cables: 

* Disk  Drive 

* CRT 

* ENC  Patch  Panel 

* Teletype  (optional) 

2.  Attach  analog  sources  to  the  desired  patch  panel  3NC 
fitting  using  coaxial  cables.  Up  to  16  channels  may  be 
attached.  Ensure  voltage  limits  on  analog  inputs  do  not 
exceed  plus  or  minus  5 volts. 

3.  With  disk  drive  doors  open,  power  up  all  equipment. 

4.  Install  the  program  diskette  in  Drive  A and  a blank  or 
uprotected  diskette  in  Drive  3,  then  close  the  doers. 

5.  Depress  the  30CT  switch  and  momentarily  depress  the 
RESET  switch. 

6.  Depress  the  space  bar  on  the  CRT  keyboard. 

7.  Reposition  the  BOOT  switch  - The  CRT  will  display  the 
following  message:  32X  CP/N  VERS  1.3 

8.  Enter  ACQUIRE  and  a carriage  return.  The  program  will 
respond  by  displaying  the  current  CONTFOL  file  and  ask: 


IIMMI  III. 
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'•ANY  CHANGES?". 


9.  Respond  with  a Y for  yes  or  a N for  no. 

10.  If  yes,  you  must  then  edit  the  CONTROL  file  by 
ent  ering : 

* ED  CONTROL  cr 

* * A cr 

Use  the  editing  commands  specified  in  ref.  9. 

11.  If  nc,  the  program  will  ask  for  a 4 digit  frequency  to 
be  entered.  The  decimal  point  is  understood  to  be 
between  the  first  and  second  significant  digits, 

ex:  0105  is  equivalent  to  10.5  Hz. 

12.  When  ready  to  record  data,  enter  a carriage  return. 

13.  Repeat  steps  11  and  12  until  the  CONTROL  file 
terminates  and  asks  "GOOD  RUN?". 

14.  Enter  Y if  you  wish  to  protect  the  disk  from  being 
written  to. 

15.  Entering  a N will  not  protect  the  diskette  nor  will  it 
destroy  data  on  the  disk. 

9.  DATA  ANALYSIS  PROCEDURE  INSTRUCTIONS 

1.  With  the  DATA  diskette  in  Drive  B and  the  program 
diskette  in  Drive  A,  type  in  CONVEPT  DATA.xxx;  where 
xxx  is  the  decimal  ID  of  the  data  file, 

CONVERT  DATA. 001 

2.  When  prompted  with  an  A>,  enter  RUN  REDUCE.  Output  will 
appear  on  the  selected  console  device. 
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APP2NDIX  F 


DATE: 6/15/77 

RUN# : SIN  REDUCTION  TEST 
SCANS  PER  CHANNEL:  400 
SCAN  PERIOD:  2 
FIRST  CHANNEL:  0 
LAST  CHANNEL:  2 
SCANIVALVE  0:  1 
SCANIVALVE  0:  6 
SCANIVALVE  1:  1 
SCANIVALVE  l:  6 

CHANNEL  1 = INPUT  FROM  WAVtTEK 

CHANNEL  2 AND  3 = OUTPUT  FROM  OF  AMP  FILTER 
DATA. 000  = 10HZ  SIN  WAVE  ZERO  OFFSET 

.001  : 25HZ  SIN  WITH  ZERO  OFFSET 

.002  = 35HZ  SIN  WITH  ZERO  OFFSET 

.003  = 50HZ  SIN  WITH  ZERO  OFFSET 

.004  = 65HZ  SIN  WITH  ZERO  OFFSET 

.005  = 75HZ  SIN  WITH  ZERO  OFFSET 
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